Darkprince97 |
|
| Auguri a tutti, Ieri ho finito questo programma e oggi ve lo posto. Si chiama Merry xMas No,non stiamo parlando del nostro admin xD Ci si scambia e si riceve gli auguri di natale via Web tramite un mio server. Download[ #] Screen:  Source irrisorio xD: CODICE #include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <INET.au3>
#Include <GUIEdit.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Merry XMas", 237, 390, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 225, 97)
GUICtrlSetData(-1, "Augurio")
$Input1 = GUICtrlCreateInput("Mittente", 8, 104, 145, 21)
$Button1 = GUICtrlCreateButton("Invia!", 160, 104, 75, 25, $WS_GROUP)
$Edit2 = GUICtrlCreateEdit("", 8, 152, 225, 185)
$Button2 = GUICtrlCreateButton("Ricevi!", 80, 344, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
$WINDOW = ObjCreate("Shell.Explorer.2")
$VISUALWINDOW = GUICtrlCreateObj($WINDOW, 136, 0, 11, 17)
GUICtrlSetState(-1, $GUI_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
$WINDOW.navigate("***")
case $Button2
$sHTML = _Inetgetsource("http://***/Xmas/Auguri.html")
Guictrlsetdata($EDit2,"")
If Not $sHTML = "" Then
$ip=StringSplit($sHTML,"§")
For $i=1 to $ip[0]
_GUICtrlEdit_AppendText($Edit2,$ip[$i]&@crlf)
Next
EndIf
EndSwitch
WEnd Buon Natale a tutti! Edited by Darkprince97 - 25/12/2010, 16:43 |
| | |
