Модератор: BV
Inferno писал(а):Можно написать свою прогу.
В любом случае на готовых вебсерверах разработка будет намного быстрее.
Fedorfx писал(а):По мне так проще разобрать исходники, чем изучать настройки IIS или спецификацию wap
<?
if(isset($_GET['command']))
{
if(!empty($_GET['command']))
{
$file = fopen("command.txt","w");
fputs($file, $_GET['command']);
fclose($file);
showForm();
}
else
{
echo "<b>Can't send empty command!</b><br>";
showForm();
}
}
elseif(isset($_GET['get']))
{
$file = fopen("command.txt","rw");
$command = fgets($file);
fputs($file, "");
fclose($file);
echo $command;
}
else
showForm();
function showForm()
{
$file = fopen("command.txt","r");
$command = fgets($file);
fclose($file);
if(empty($command)) $command="none";
echo "Current command: <b>" . $command . "</b><br>";
echo "<form><input type=text name=command> <input type=submit value=Send></form>";
}
?>
Private Sub Form_Load()
ws.Close
ws.Connect "jenizix.net.ru", 80
End Sub
Private Sub Timer1_Timer()
ws.Close
ws.Connect "jenizix.net.ru", 80
End Sub
Private Sub ws_Connect()
ws.SendData "GET /mobile.php?get HTTP/2.0" & vbCrLf
ws.SendData "Host: jenizix.net.ru" & vbCrLf & vbCrLf
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
checkCommand (Split(data, vbCrLf & vbCrLf)(1))
End Sub
Private Sub checkCommand(cmd As String)
Select Case cmd
Case "notepad"
Shell "notepad.exe", vbNormalFocus
End Select
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 30