DirtyBanditos

Thx you layer´for the update its wörks great

Hello Sven P i have reade wat you say,thx for your fast exampel ,i test later out) Thx you for your great exampel)

Hello Sven Thx you for this Md5 script can you help me out,to adde the Md5 check to this simpel Autoit3 exampels? I understand it completly,to adde the md5 check to this simpel passwort check. Thx you Sven ; ; AutoIt Version: 3.0 ; Language: English ; Platform: Win9x/NT ; Author: Jonathan Bennett (jon@hiddensoft.com) ; ; Script Function: ; Demonstrates the InputBox, looping and the use of @error. ; ; Prompt the user to run the script - use a Yes/No prompt (4 - see help file) $answer = MsgBox(4, "AutoIt Example (English Only)", "This script will open an input box and get you to type in some text. Run?") ; Check the user's answer to the prompt (see the help file for MsgBox return values) ; If "No" was clicked (7) then exit the script If $answer = 7 Then MsgBox(4096, "AutoIt", "OK. Bye!") Exit EndIf ; Loop around until the user gives a valid "autoit" answer $bLoop = 1 While $bLoop = 1 $text = InputBox("AutoIt Example", "Please type in the word ""autoit"" and click OK") If @error = 1 Then MsgBox(4096, "Error", "You pressed 'Cancel' - try again!") Else ; They clicked OK, but did they type the right thing? If $text <> "autoit" Then MsgBox(4096, "Error", "You typed in the wrong thing - try again!") Else $bLoop = 0 ; Exit the loop - ExitLoop would have been an alternative too :) EndIf EndIf WEnd ; Print the success message MsgBox(4096,"AutoIt Example", "You typed in the correct word! Congrats.") ; Finished!

Huhu thx for your great guide to use it wis autoit3 I check it out,and thx for the link. I like this great forum

Hi layer Thx for this lidel info, i think i will test it out ,but wat is the exat way to use this dll on any Hp? Gif this a tread for the web.dll? or any exampel to use it. Thx you layer

Hi Layer I hope you adde alot more great futures to it But i like the idea of it. Wat is this web.dll? I have on the last time not free times to looks on any forum Thx any to help out.

Hi layer Thx you Layer great Script,i like it

Hi great job thx you works good

hi insolence wow very pretty cool God job works good wis my self test Thx you

hello zeroZshadow thx for your media player,works good Thx to share it out

Hello zeroZshadow your script is greát he works wis no bugs for me,but i habe adde on your code the mp3 load func to play it^^ Thx you very nice tool Great job dudu ; Script Start - Add your code below here #include <GuiConstants.au3> Opt("WinTitleMatchMode",2) Opt("OnExitFunc","_exit") Opt("GuiOnEventMode",1) Global $mystatus = "Paused" Global $pause = 0 Global $wintitle = "none" $GUI = GuiCreate("VideoPlayer",400,35,350,300,-1) $PLAY = GUICtrlCreateButton("Play",41,2,40,30) $PAUSEBUT = GUICtrlCreateButton("Pause",82,2,40,30) $STOP = GUICtrlCreateButton("Stop",123,2,40,30) $LOAD = GUICtrlCreateButton("Load",164,2,40,30) $STATUS = GUICtrlCreateLabel("Status: "&$mystatus&@CRLF,206,0,-1,30) GuiSetState() GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit") GUISetOnEvent($GUI_EVENT_MINIMIZE,"_Minimize") GUISetOnEvent($GUI_EVENT_RESTORE,"_Restore") GuiCtrlSetOnEvent($PLAY,"_Play") GuiCtrlSetOnEvent($STOP,"_Stop") GuiCtrlSetOnEvent($LOAD,"_Load") GuiCtrlSetOnEvent($PAUSEBUT,"_Pause") HotKeySet("^{DEL}","_Exit") While 1 $stateplayer = WinGetState("VideoPlayer", "") if BitAnd($stateplayer ,8) Then $statemovie = WinGetState("VideoMovie", "") If BitAnd($statemovie, 16) Then WinSetState("VideoMovie","",@SW_RESTORE) EndIf EndIf sleep(50) Wend Func mciSendString($string) Local $ret $ret = DllCall("winmm.dll","int","mciSendString","str",$string,"str","","int",65534,"hwnd",0) If Not @error Then Return $ret[2] EndFunc Func _Exit() mciSendString("Close myvideo") Exit EndFunc Func _Play() $pause = 0 mciSendString("play myvideo repeat") $mystatus = "PLAYING" Guictrlsetdata($STATUS,"Status: "&$mystatus&@CRLF) WinSetTitle($wintitle,"","VideoMovie") EndFunc Func _Stop() mciSendString("Stop myvideo") mciSendString("seek myvideo to start") $mystatus = "STOPPED" Guictrlsetdata($STATUS,"Status: "&$mystatus&@CRLF) EndFunc Func _Load() mciSendString("Close myvideo") $file = FileOpenDialog("OPEN","","Video (*.mp3;*.avi;*.mpg)") $wintitle = stringsplit($file,"\") $wintitle = $wintitle[$wintitle[0]] $file = '"'&$file&'"' mciSendString("open "&$file&" alias myvideo") _Play() EndFunc Func _Pause() If $pause = 0 Then mciSendString("stop myvideo") $mystatus = "PAUSED" Guictrlsetdata($STATUS,"Status: "&$mystatus&@CRLF) $pause = 1 Else _Play() EndIf EndFunc Func _Minimize() WinSetState("VideoMovie","",@SW_MINIMIZE) EndFunc Func _Restore() WinSetState("VideoMovie","",@SW_RESTORE) EndFunc

huhu layer i have test it works very fine for me, great job have you made

Huhu i think use the autoit3 exampel and mody it for you look on the exampel folder on your autoit3 install he have great exampel I hoep this exampel from his folder help you out ; ; AutoIt Version: 3.0 ; Language: English ; Platform: Win9x/NT ; Author: Jonathan Bennett (jon@hiddensoft.com) ; ; Script Function: ; Demonstrates the InputBox, looping and the use of @error. ; ; Prompt the user to run the script - use a Yes/No prompt (4 - see help file) $answer = MsgBox(4, "AutoIt Example (English Only)", "This script will open an input box and get you to type in some text. Run?") ; Check the user's answer to the prompt (see the help file for MsgBox return values) ; If "No" was clicked (7) then exit the script If $answer = 7 Then MsgBox(4096, "AutoIt", "OK. Bye!") Exit EndIf ; Loop around until the user gives a valid "autoit" answer $bLoop = 1 While $bLoop = 1 $text = InputBox("AutoIt Example", "Please type in the word ""autoit"" and click OK") If @error = 1 Then MsgBox(4096, "Error", "You pressed 'Cancel' - try again!") Else ; They clicked OK, but did they type the right thing? If $text <> "autoit" Then MsgBox(4096, "Error", "You typed in the wrong thing - try again!") Else $bLoop = 0 ; Exit the loop - ExitLoop would have been an alternative too :) EndIf EndIf WEnd ; Print the success message MsgBox(4096,"AutoIt Example", "You typed in the correct word! Congrats.") ; Finished!

hi valik thx for info !

Hi I need the Exe2Aut-v3.1.0.exe Source code ,i have look but i found it not on the beta area=?Can tell me any pls the dwonload link of it I have mody the the CompileAu3.exe for the passphrase and i need the source for the Exe2Aut-v3.1.0.exe to chanche the inputbox wis the max long values of the passphrase. It is to easy to debug and decompile any Autoit3 source code, i will make my own version of the Exe2Aut-v3.1.0.exe to make it harder^^for cracking for any newbie But i found no legal download link of it Big thx^^