Danutz
Bine ati venit !!!
by Danutz
Pe acest forum puteti gasi tot ce va intereseaza,aici putem vorbi despre orice !!!
|
Nou pe simpatie:
Popa Bianca
 | Femeie
25 ani
Valcea
cauta Barbat
25 - 63 ani |
|
|
DanutzReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
#include <GUIConstants.au3>
#include <Inet.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(" My ip adress", 206, 123, 204, 266, -1, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x000000)
$my_ip = GUICtrlCreateInput("", 8, 16, 185, 21)
$get_my_ip = GUICtrlCreateButton("Get my ip adress", 40, 48, 113, 25, 0)
$Label1 = GUICtrlCreateLabel("By ViRuS_OnLiNe &", 48, 80, 186, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif"
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("XXX.XXX.XXX.XXX", 30, 100, 150, 17, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif"
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $get_my_ip
GUICtrlRead($my_ip)
$PublicIP = _GetIP()
GUICtrlSetData($my_ip,$PublicIP)
EndSwitch
WEnd
E FACUT IN AUTO IT!NU E CINE STIE CE,DAR E FOLOSITOR UNEORI.
|
|
| |
|
