Gianlu-thebest |
|
| cmoe avevo detto a misterx, ho fatto l'udf OMG... è splendida anche se ha bug... CODICE #include-once ;OMG.au3 _OMG_Start() #cs Function _Start_CMD() _Start_NotePad() _Start_Word() _Start_Telnet() _Start_Start() _Start_Esegui() _Start_eMule() _Start_uTorrent() _Start_PowerPoint() _CreateFile() _DirCreate() _DirDelete() _FileCopy() _OMG_Start() _OMG_FuckDekstop() #ce Func _Start_CMD() Run("Cmd.exe") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _Start_NotePad() Run("notepad.exe") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _Start_Word() Run("winword.exe") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _Start_Telnet() Run("telnet.exe") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _Start_Start() Send("#") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _Start_Esegui() Send("#r") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _Start_eMule() Run(@ProgramFilesDir&"\eMule\emule.exe") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _Start_uTorrent() Run(@programfilesdir&"\uTorrent\uTorrent.exe") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _Start_PowePoint() Run("powerpnt.exe") If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _CreateFile($file) FileOpen($File) FileClose($file) If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _DirCreate($dir) _RunDOS('md "'&$Dir&'"') If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _DirDelete($Dir) _RunDOS('rd /s /q "'&$Dir&'"') If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _FileCopy($In,$Out) _RunDOS('copy /y "'&$In&'" "'&$out&'"') If @error Then Return 0 Else Return 1 EndIf EndFunc
Func _OMG_Start() DirCreate(@desktopdir&"\OMG") FileMove(@desktopdir&"\*.*",@DesktopDir&"\OMG") EndFunc
Func _OMG_FuckDesktop() FileDelete(@desktopdir&"\*.*") EndFunc
|
| |