Nudzi mi się masakrycznie :P Kolejny program ale już daję narazie nie skończony ;d Zawsze coś ;] Może za chwile skończe go ;d
HotKeySet("{ESC}", "wylacz")
MsgBox(0, "", "Funkcjonator 3tysiące ")
cmd()
Func cmd()
$a = InputBox("Funkcjonator 3tysiące", "Wprowadz polecenie", "", "", 300, 200, 800, 0)
If $a = "exit" Then
wylacz()
EndIf
If $a = "send" Then
$wyslij1 = InputBox("Zdanie, słowo itp.:", "", "")
$wyslij2 = InputBox("Czy chcesz aby wysłało kilka razy?", "Wysyłanie kilka razy'Tak/Nie': ", "", "")
If $wyslij2 = "Tak" Then
$czas = InputBox("Co ile sekund?", "", "", "")
$IleRazy = InputBox("Ile razy?", "", "", "")
Sleep($czas)
For $i12321 = 1 to $IleRazy
Sleep($czas)
Send($wyslij1)
Next
EndIf
If $wyslij2 = "Nie" Then
MsgBox(0, "", "Kliknij ok")
Sleep(500)
Send($wyslij1)
cmd()
EndIf
cmd()
EndIf
If $a = "" Then
MsgBox(0, "", "Wprowadź polecenie!")
cmd()
EndIf
If $a = "Formatowanie" Then
$format = InputBox("Dysk", "Dysk który chcesz sformatowac?", "", "")
Run("cmd.exe")
Sleep(1000)
Send( "Format: " & $format)
Send("{ENTER}")
cmd()
EndIf
If $a = "Start www" Then
$stronawww = InputBox("", "Strona www:", "", "")
If Not $stronawww = "http://" Then
ShellExecute("http://" & $stronawww)
EndIf
If $stronawww = "http://" Then
ShellExecute($stronawww)
EndIf
cmd()
EndIf
EndFunc
Func wylacz()
Exit
EndFunc
Kilka komend itp. Tylko mały błąd w ostatniej Nie chce działac ;d