Cracks Searcher 1.0

Code:

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Cracks Searcher 1.0", 277, 159)
$Checkbox1 = GUICtrlCreateCheckbox("Deep Search?", 24, 112, 97, 17)
$Input1 = GUICtrlCreateInput("", 24, 64, 225, 21)
$Button1 = GUICtrlCreateButton("เริ่มค้นหา", 144, 104, 107, 33)
$Label1 = GUICtrlCreateLabel("พิมพ์ชื่อโปรแกรมที่ต้องการจะค้นหา", 24, 40, 191, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Menu = GUICtrlCreateMenu("&Help")
$OptionMenu = GUICtrlCreateMenuItem("&Help   F1", $Menu)
GUICtrlSetState(-1, $GUI_DISABLE)
$OptionMenu = GUICtrlCreateMenuItem("&Option..", $Menu)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateMenuItem("", $Menu, 2)
$AboutMenu = GUICtrlCreateMenuItem("&About..", $Menu)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $AboutMenu
         MsgBox(64, "About Cracks Searcher", "Cracks Searcher 1.0 by Admin_MyPrograms", 10, $Form1)
      Case $Button1
         _Crack()
   EndSwitch
WEnd

Func _Crack()
   If GUICtrlRead($Input1) <> "" Then
      If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
         ShellExecute("http://keygens.nl/cracked_warez_search.php?s=" & GUICtrlRead($Input1) & "&deep_crack=on")
         Exit
      EndIf
      If BitAnd(GUICtrlRead($Checkbox1), $GUI_UNCHECKED) Then
         ShellExecute("http://keygens.nl/cracked_warez_search.php?s=" & GUICtrlRead($Input1))
         Exit
      EndIf
   EndIf
   MsgBox(0, "Error!", "ยังไม่ได้พิมพ์ชื่อโปรแกรม")
EndFunc


$save =_INetGetSource ("http://keygens.nl/cracked_warez_search.php?s=" & GUICtrlRead($Input1))
ConsoleWrite( $save &@crlf)

Code:

#Include <String.au3>
#include <INet.au3>
#Include <Array.au3>

$save = _INetGetSource("http://pssix.blogspot.com")
 $Array = _StringBetween ($save, "<a href=", '">')
 _ArrayDisplay($Array)

#Include <String.au3>
#include <INet.au3>
#Include <Array.au3>


#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Cracks Searcher 1.0", 277, 159)
$Checkbox1 = GUICtrlCreateCheckbox("Deep Search?", 24, 112, 97, 17)
$Input1 = GUICtrlCreateInput("", 24, 64, 225, 21)
$Button1 = GUICtrlCreateButton("เริ่มค้นหา", 144, 104, 107, 33)
$Label1 = GUICtrlCreateLabel("พิมพ์ชื่อโปรแกรมที่ต้องการจะค้นหา", 24, 40, 191, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Menu = GUICtrlCreateMenu("&Help")
$OptionMenu = GUICtrlCreateMenuItem("&Help F1", $Menu)
GUICtrlSetState(-1, $GUI_DISABLE)
$OptionMenu = GUICtrlCreateMenuItem("&Option..", $Menu)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateMenuItem("", $Menu, 2)
$AboutMenu = GUICtrlCreateMenuItem("&About..", $Menu)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $AboutMenu
MsgBox(64, "About Cracks Searcher", "Cracks Searcher 1.0 by Admin_MyPrograms", 10, $Form1)
Case $Button1
_Crack()
EndSwitch
WEnd

Func _Crack()
If GUICtrlRead($Input1) <> "" Then
If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
ShellExecute("http://keygens.nl/cracked_warez_search.php?s=" & GUICtrlRead($Input1) & "&deep_crack=on")
Exit
EndIf
If BitAnd(GUICtrlRead($Checkbox1), $GUI_UNCHECKED) Then


dim $link[1]

$save =_INetGetSource ("http://keygens.nl/cracked_warez_search.php?s=" & GUICtrlRead($Input1))
$Array = _StringBetween ($save, "<a href=", '">')
for $i = 0 to UBound($Array)-1

if StringInStr ($Array[$i],"/crack/") then _ArrayAdd( $link,$Array[$i])
Next
_ArrayDisplay($link)

Exit
EndIf
EndIf
MsgBox(0, "Error!", "ยังไม่ได้พิมพ์ชื่อโปรแกรม")
EndFunc

ใส่รูปทำมัยโหลดยากวะเปี่ยน$Array = _StringBetween ($save, "<a href=", '">') เปน $Array = _StringBetween ($save, "<a href=", '</a>')