Local $Pic = @TempDir & '\yzm.bmp'
Local $Url = 'http://reg.email.163.com/mailregAll/regvf1/verifyCodeImgF.jsp?type=zh'
InetGet($Url, $Pic, 1)
Local $MM = 0, $MMP = 1
GUICreate('', 200, 120)
$Pic1 = GUICtrlCreatePic($Pic, 50, 20, 80, 30)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
FileDelete($Pic)
Exit
Case $Pic1
If Not $MM Then
InetGet('http://www.autoitx.com/uc/avatar.php?uid=7657605&size=middle', $Pic, 1)
GUICtrlSetPos($Pic1, 40, 0, 96, 120)
GUICtrlSetImage($Pic1, $Pic)
$MM = 1
$MMP = 0
Else
InetGet($Url, $Pic, 1)
If Not $MMP Then
GUICtrlSetPos($Pic1, 50, 20, 80, 30)
$MMP = 1
EndIf
GUICtrlSetImage($Pic1, $Pic)
EndIf
EndSwitch
WEnd
|