Обсуждение AutoIt бета-версий

; #FUNCTION# ====================================================================================================================
; Name...........: _INetGetSource
; Description ...: Gets the source from an URL without writing a temp file.
; Parameters ....: $s_URL = The URL of the site.
;				   $nOptions - InetRead() options to use.
; Return values .: On Success - Returns the source code.
;                  On Failure - 0  and sets @ERROR = 1
; Author ........: Wouter van Kesteren.
; ===============================================================================================================================
Func _INetGetSource($s_URL, $nOptions = 0)
	Return InetRead($s_URL, $nOptions)
EndFunc   ;==>_INetGetSource

#Region Includes
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#EndRegion Includes
#NoTrayIcon

$Form1 = GUICreate("Form1", 300, 400, -1, -1)

$lvStyle = BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_NOCOLUMNHEADER, $LVS_SHOWSELALWAYS)
$ListView1 = GUICtrlCreateListView("", 5, 5, 290, 390, $lvStyle)
GUICtrlSetState($ListView1, $GUI_DROPACCEPTED)
_GUICtrlListView_SetUnicodeFormat($ListView1, False)
_GUICtrlListView_AddColumn($ListView1, "Col0", 80, 2)
_GUICtrlListView_AddColumn($ListView1, "Col1", 80, 2)
_GUICtrlListView_AddColumn($ListView1, "Col2", 80, 2)

For $i = 1 To 15
	$sItem = "Col0 Item" & $i & "|Col1 Item" & $i & "|Col2 Item" & $i
	GUICtrlCreateListViewItem($sItem, $ListView1)
Next

GUISetState(@SW_SHOW)

For $i = 1 To 15
	MsgBox(0, "", "Item: " & $i & @CRLF & "Value: " & _GUICtrlListView_GetItemText(GUICtrlGetHandle($ListView1), $i, 0))
Next

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd