[ autoit ]
#include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> Global $Bin = InetRead ("http://www.find-ip-address.org/ip-location-lookup-module.php") Global $Page = BinaryToString ($Bin) $YourIP = Grep($Page, "Your IP Number") $YourCountry = Grep($Page, "Your Country Name") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 334, 153, 431, 304) $ListView1 = GUICtrlCreateListView("my ip|my contry|flag state", 0, 0, 330, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100) $ListView1_0 = GUICtrlCreateListViewItem($YourIP&"|"&$YourCountry&"|"&"-", $ListView1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func Grep($sString, $sSearch) Local $aGrep = StringRegExp($Page, "(?i)(?U)" & $sSearch & ": <b>(.*)</b>", 3) If @error Then Return SetError(@error, 0, 0) Return $aGrep[0] EndFunc
hello!
can someone help me with this ...
I made this script, but the problem is that they fail in any way to set a small size picture inside the list.
Thank you!