ZZeman94 |
|
| Ecco un altri programma fatto mooolto velocemente ma molto utile. E' un tool che permette di inviare messaggi a tutti i contatti. Semplice e veloce. Necessita della UDF Skipe.au3 che trovate nella sezione UDF del forum. CODICE #RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Skype.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Skype Message Sender", 434, 289, 237, 152)
GUISetBkColor(0x000000)
$Edit1 = GUICtrlCreateEdit("", 19, 80, 393, 137, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
$Label1 = GUICtrlCreateLabel("Messaggio da Inviare:", 19, 56, 108, 17)
GUICtrlSetColor(-1, 0xFFFF00)
$Input1 = GUICtrlCreateInput("", 19, 32, 121, 21)
$Label2 = GUICtrlCreateLabel("Username:", 19, 8, 55, 17)
GUICtrlSetColor(-1, 0xFFFF00)
$Button1 = GUICtrlCreateButton("Invia Messaggio", 19, 224, 185, 57)
GUICtrlSetBkColor(-1, 0xFFFF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$user=GUICtrlRead ($Input1)
$text=GUICtrlRead ($Edit1)
_SKSendMessage($user , $text)
EndSwitch
WEnd |
| | |
