[Autoit] xISO Downloader ( Simple Database,Inetget,etc)

Code:

#include <inet.au3>
#include <array.au3>
#include <file.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("TrayIconHide", 1)

$Frm = GUICreate("xISO Downloader Beta", 571, 370, 276, 206, -1, BitOR($WS_EX_APPWINDOW, $WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
GUISetBkColor(0xFFFFFF)
$links = GUICtrlCreateEdit("", 272, 168, 289, 193, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
$p1 = GUICtrlCreatePic(@ScriptDir & "\Images\link.jpg", 272, 112, 289, 57, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$P2 = GUICtrlCreatePic(@ScriptDir & "\Images\Game.jpg", 0, 8, 105, 41, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Game = GUICtrlCreateLabel("Waiting...", 96, 21, 475, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Tahoma")
GUICtrlSetColor(-1, 0x808080)
$P3 = GUICtrlCreatePic(@ScriptDir & "\Images\info.jpg", 0, 48, 65, 25, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Info = GUICtrlCreateLabel("Waiting...", 58, 53, 494, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
GUICtrlSetColor(-1, 0x808080)
$P4 = GUICtrlCreatePic(@ScriptDir & "\Images\password.jpg", 3, 74, 106, 20, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Password = GUICtrlCreateLabel("Waiting...", 105, 77, 436, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
GUICtrlSetColor(-1, 0x808080)
$P5 = GUICtrlCreatePic(@ScriptDir & "\Images\Search.jpg", 2, 297, 103, 25, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$GS = GUICtrlCreateInput("Type Game Name Here", 103, 301, 145, 21)
$bSearch = GUICtrlCreateButton("Search", 84, 337, 79, 22, $WS_GROUP)
GUISetState(@SW_HIDE)



If @Compiled = 0 Then
	MsgBox(0, "Cheater", "Stealing Source code is wrong!")
	Exit 0
Else
	GUISetState(@SW_SHOW)
EndIf

$String = "http://www.yourwebsite.com/yourdb.ini"
$File = @TempDir & "/yourdb.ini"

InetGet($String, $File, 1, 0)

$sIni = IniReadSectionNames($File)
_FileWriteFromArray(@ScriptDir & "/list.txt", $sIni)

While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			FileDelete($File)
			FileDelete(@TempDir & "/Download.txt")
			FileDelete("list.txt")
			ExitLoop
		Case $msg = $bSearch
			Local $sIn[7]
			$sIn[0] = IniRead($File, GUICtrlRead($GS), "D1", "no link")
			$sIn[1] = IniRead($File, GUICtrlRead($GS), "D2", "no link")
			$sIn[2] = IniRead($File, GUICtrlRead($GS), "D3", "no link")
			$sIn[3] = IniRead($File, GUICtrlRead($GS), "D4", "no link")
			$sIn[4] = IniRead($File, GUICtrlRead($GS), "D5", "no link")
			$sIn[5] = IniRead($File, GUICtrlRead($GS), "D6", "no link")
			$sIn[6] = IniRead($File, GUICtrlRead($GS), "D7", "no link")
			$sArray = _FileWriteFromArray(@TempDir & "/Download.txt", $sIn)

			$sInfo = IniRead($File, GUICtrlRead($GS), "Information", "No Info")
			GUICtrlSetData($Info, $sInfo)

			$sPass = IniRead($File, GUICtrlRead($GS), "Password", "No info")
			GUICtrlSetData($Password, $sPass)

			GUICtrlSetData($Game, GUICtrlRead($GS))

			;File Functions
			$sOpen = FileOpen(@TempDir & "/Download.txt")
			$sRead = FileRead($sOpen)
			GUICtrlSetData($links, $sRead)
		Case Else
	EndSelect
WEnd
Exit

Then The rough database entry tool i made

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Frm = GUICreate("MackDB Entry Tool Alpha", 230, 320, 302, 218, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WI  NDOWEDGE))
$Lname = GUICtrlCreateLabel("Name:", 15, 10, 35, 17)
$sGame = GUICtrlCreateInput("", 46, 9, 127, 21)
$bSubmit = GUICtrlCreateButton("Submit", 68, 289, 106, 24, $WS_GROUP)
$Linfo = GUICtrlCreateLabel("Information:", 14, 42, 59, 17)
$sInfo = GUICtrlCreateInput("", 71, 40, 148, 21)
$LPass = GUICtrlCreateLabel("Password:", 14, 67, 53, 17)
$sPass = GUICtrlCreateInput("", 68, 65, 151, 21)
$Llinks = GUICtrlCreateLabel("Links:", 17, 95, 32, 17)
$A = GUICtrlCreateInput("", 61, 94, 121, 21)
$B = GUICtrlCreateInput("", 61, 119, 121, 21)
$C = GUICtrlCreateInput("", 61, 145, 121, 21)
$D = GUICtrlCreateInput("", 61, 172, 121, 21)
$E = GUICtrlCreateInput("", 61, 199, 121, 21)
$F = GUICtrlCreateInput("", 61, 225, 121, 21)
$G = GUICtrlCreateInput("", 61, 251, 121, 21)
GUISetState(@SW_SHOW)

While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $bSubmit
			IniWriteSection("yourdb.ini",guictrlread($sGame),"Information=" & guictrlread($sInfo) & @LF & "Password=" & guictrlread($sPass) & @LF & "D1=" & guictrlread($A)& @LF & "D2=" & guictrlread($B)& @LF & "D3=" & guictrlread($C)& @LF & "D4=" & guictrlread($D)& @LF & "D5=" & guictrlread($E)& @LF & "D6=" & guictrlread($F)& @LF & "D7=" & guictrlread($G))
	case Else
EndSelect
WEnd
Exit

Video:

Code:

http://screenr.com/oHc

Download:

Code:

http://www.megaupload.com/?d=1RBMXW40