Autoit Web siteden Veri Cekmek

[darendeli]

*****Hayırlı Ramazanlar****

Arkadaslar yapmak istedigim e-mail ve sifre girilecek site fln acmayacak login olcak sadece editbox da 101 okey plus cip bakiyesinin Görünmesini istiyorum.. pepsi kodunu gerekli yere girince eklenen Bakiyeyide Aynı Sekilde Gösterecek Mümkünmüdür...
Embededde olmayacak sadece bakiye bilgisi yeterli

Kod: Tümünü seç

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIEdit.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 266, 371, 483, 124)
$ip_user = GUICtrlCreateInput("", 32, 32, 201, 21)
_GUICtrlEdit_SetCueBanner($ip_user, "Facebook e-mailinizi Yazınız!!!", True)
$ip_Pass = GUICtrlCreateInput("", 32, 64, 201, 21)
_GUICtrlEdit_SetCueBanner($ip_Pass, "Facebook Şifrenizi Yazınız!!!", True)
$Group1 = GUICtrlCreateGroup("", 16, 8, 233, 137)
$Button1 = GUICtrlCreateButton("Facebook Giriş", 32, 96, 201, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input3 = GUICtrlCreateInput("", 32, 184, 201, 21)
_GUICtrlEdit_SetCueBanner($Input3, "Pepsi Kodunuzu Yazınız!!!", True)
$Group2 = GUICtrlCreateGroup("", 16, 152, 233, 113)
$Button2 = GUICtrlCreateButton("Pepsi Kod Gönder", 32, 216, 201, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pepsikod = GUICtrlCreateEdit("", 16, 280, 233, 73)
GUICtrlSetData(-1, "")
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
Main()

Func Main()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
EndFunc
#EndRegion

Func Login()
Global $rUsername = GUICtrlRead ($ip_user)
Global $rPassword = GUICtrlRead ($ip_Pass)
Local  $url = 'https://www.facebook.com/login.php?login_attempt=1&lwv=110'
$login = ObjCreate ('winhttp.winhttprequest.5.1')
$login_packet = 'email='& $rUsername & 'pass=' & $rPassword & '&persistent=&default_persistent=1&timezone=-180&lgndim=eyJ3IjoxMjgwLCJoIjoxMDI0LCJhdyI6MTI4MCwiYWgiOjk4NCwiYyI6MjR9&lgnrnd=142210_Xjlv&lgnjs=1464988929&locale=tr_TR&next=https%3A%2F%2Fwww.facebook.com%2F&qsstamp=W1tbMTgsNTIsNTMsODgsMTAzLDExMiwxMjcsMTM0LDEzNiwxODAsMTg2LDIxMSwzMDEsMzAyLDMyMCwzNDYsMzkxLDM5OSw0MTQsNDE1LDQxOSw0MjEsNDI0LDQ1Miw0NzUsNDg0LDUxOCw1MTksNTI0LDU2NCw1NzEsNTcyLDU3NCw1ODQsNTkwLDU5Myw2MjMsNjMyLDY2NSw2NzQsNzkyLDgwMV1dLCJBWm1QMDlNeHZVdmE2akpzaDZ6WkhpaEJLbjdXeExRemJWNFJNbzVNczFyVi0tUEtjODJ3b0x0Z3RRaDF6YjUtOTU2SjJRZ0ltMEMwUzh0SU1SLVg1YXNsSFI2aHUycXg2TDRXX1BGdWIyYkItbWZwODZPUTlqeEE1QURhUTVHcUk1T0xtaEh6ZXVKRVRGQXYxREsyMVpvMVhLUk1SS2Nna3ZiMVVqTTVBZjVHUnItem9SS2JCYVlmSVBfVjZuZVA0SV8td0J1MmFxVkpOZDFVZGtBdzJ0RkxoQkJZQ2lOUllUTHduZVlwTzQ0ZTJBIl0%3D'
$login.open ('POST',$url)
$login.SetRequestHeader('Content-Type','application/x-www-form-urlencoded')
$login.Send($login_packet)
$login.WaitForResponse()
$cookies = $login.GetAllResponseHeaders()
$encoded_password = _StringBetween ($cookies ,'password',':'
$encoded_password = StringTrimLeft ($encoded_password [0] ,StringInStr ($encoded_password [0] ,"" ))
Local $url_action 'https://www.facebook.com/?stype=lo&jlou=AfcUDxVyyOxp0hY43Wc3HEqPy_NuUZ3mO85DQquFPe2OQ3LqhXOe3JX3_T_0xYksha_tvcTseXzXmFaAsRltHYyf&smuh=45304&lh=Ac-buGcr8qCxt5Im'
$login_action_packet = 'email=' & $rUsername & 'pass=' $encoded_password
$login.open ('POST',$url_action)
$login.SetRequestHeader('Content-Type','application/x-www-form-urlencoded')
$login.Send($login_packet)
$login.WaitForResponse()
Local $Main_url 'https://apps.facebook.com/yuzbirplus/?fb_source=bookmark&ref=bookmarks&count=0&fb_bmpos=_0'
$login.open ('GET' $Main_url)
$login.Send()
$login.WaitForResponse()
EndFunc

[BlueLife]

@darendeli

Yardımcı olmak isterdim lakin bu konuda fazla bilgili değilim malesef. Hangi kısımda takıldın merak ettim? Login mi olamıyorsun. Login olduktan sonra ilgili istediğin bilgiyi mi alamıyorsun?

Autoit ile bir internet objesi oluşturup onun üzerinden login olur ve ilgili bilgiyi çekmem kolaylaşabilir aslında. Autoit forumlarını da kurcalamak işe yarayabilir. Tabi facebookun bir apisi varsa bu konu için oda olabilir. Yardımcı olamadım kusura bakma. Facebook hesabım bile yok

[darendeli]

evet suanda login olamıyorum ve siteden istedigim veriyi almak istiyorum örnekteki gibi Kodu biraz daha düzenledim ama yine biseyler eksik
ilginiz için teşekkürler

Kod: Tümünü seç

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIEdit.au3>
#include <String.au3>
#include <WinHttp.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 266, 371, 483, 124)
$ip_user = GUICtrlCreateInput("", 32, 32, 201, 21)
_GUICtrlEdit_SetCueBanner($ip_user, "Facebook e-mailinizi Yazınız!!!", True)
$ip_Pass = GUICtrlCreateInput("", 32, 64, 201, 21)
_GUICtrlEdit_SetCueBanner($ip_Pass, "Facebook Şifrenizi Yazınız!!!", True)
$Group1 = GUICtrlCreateGroup("", 16, 8, 233, 137)
$Button1 = GUICtrlCreateButton("Facebook Giriş", 32, 96, 201, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input3 = GUICtrlCreateInput("", 32, 184, 201, 21)
_GUICtrlEdit_SetCueBanner($Input3, "Pepsi Kodunuzu Yazınız!!!", True)
$Group2 = GUICtrlCreateGroup("", 16, 152, 233, 113)
$Button2 = GUICtrlCreateButton("Pepsi Kod Gönder", 32, 216, 201, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pepsikod = GUICtrlCreateEdit("", 16, 280, 233, 73)
GUICtrlSetData(-1, "")
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
Main()

Func Main()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
		Case $Button1
		 Login()

	EndSwitch

WEnd
EndFunc


Func Login()
Global $rUsername = GUICtrlRead ($ip_user)
Global $rPassword = GUICtrlRead ($ip_Pass)
Local  $url = 'https://www.facebook.com/login.php?login_attempt=1&lwv=110'
$login = ObjCreate ('winhttp.winhttprequest.5.1')
$login_packet = 'email='& $rUsername & 'pass=' & $rPassword & '&persistent=&default_persistent=1&timezone=-180&lgndim=eyJ3IjoxMjgwLCJoIjoxMDI0LCJhdyI6MTI4MCwiYWgiOjk4NCwiYyI6MjR9&lgnrnd=142210_Xjlv&lgnjs=1464988929&locale=tr_TR&next=https%3A%2F%2Fwww.facebook.com%2F&qsstamp=W1tbMTgsNTIsNTMsODgsMTAzLDExMiwxMjcsMTM0LDEzNiwxODAsMTg2LDIxMSwzMDEsMzAyLDMyMCwzNDYsMzkxLDM5OSw0MTQsNDE1LDQxOSw0MjEsNDI0LDQ1Miw0NzUsNDg0LDUxOCw1MTksNTI0LDU2NCw1NzEsNTcyLDU3NCw1ODQsNTkwLDU5Myw2MjMsNjMyLDY2NSw2NzQsNzkyLDgwMV1dLCJBWm1QMDlNeHZVdmE2akpzaDZ6WkhpaEJLbjdXeExRemJWNFJNbzVNczFyVi0tUEtjODJ3b0x0Z3RRaDF6YjUtOTU2SjJRZ0ltMEMwUzh0SU1SLVg1YXNsSFI2aHUycXg2TDRXX1BGdWIyYkItbWZwODZPUTlqeEE1QURhUTVHcUk1T0xtaEh6ZXVKRVRGQXYxREsyMVpvMVhLUk1SS2Nna3ZiMVVqTTVBZjVHUnItem9SS2JCYVlmSVBfVjZuZVA0SV8td0J1MmFxVkpOZDFVZGtBdzJ0RkxoQkJZQ2lOUllUTHduZVlwTzQ0ZTJBIl0%3D'
$login.open ('POST',$url)
$login.SetRequestHeader('Content-Type','application/x-www-form-urlencoded')
$login.Send($login_packet)
$login.WaitForResponse()
$cookies = $login.GetAllResponseHeaders()
$encoded_password = _StringBetween ($cookies ,'password',';')
$encoded_password = StringTrimLeft ($encoded_password [0] ,StringInStr ($encoded_password [0] ,"" ))
Local $url_action = 'https://www.facebook.com/'
$login_action_packet = 'email=' & $rUsername & 'pass=' & $encoded_password
$login.open ('POST',$url_action)
$login.SetRequestHeader('Content-Type','application/x-www-form-urlencoded')
$login.Send($login_packet)
$login.WaitForResponse()
Local $main_url ='https://apps.facebook.com/yuzbirplus/?fb_source=bookmark&ref=bookmarks&count=0&fb_bmpos=_0'
$login.open ('GET' , $main_url)
$login.Send()
$login.WaitForResponse()
EndFunc

#EndRegion

[darendeli]

konu ile ilgili bi video linki vereyim bi inceleyin Yapmak istediğim tam olarak bu Ama çözemedim bişeyler eksik kaldı

https://www.youtube.com/watch?v=om3c-INefcI

[BlueLife]

@darendeli

Facebook büyük bir portal ve bir çok güvenliği arttırmak için çalışanı vardır. Bu tip scriptleri engellemek için haliyle devamlı güncelleme yapılıyordur. Yani internetteki eski yöntemler işe yaramayabilir. Boşuna uğraşıyor olabilirsin.

Bakmıştırsın lakin istersen autoit forumlaırnı vs. tekrar bir gözat. Veri çekmekten ziyade öncelikle login olmak için denemeler yap. Login olmayı başarırsan veri çekme konusuna bakarsın. Tabi fazla eski olmayan konular daha önemli olacaktır.

https://www.google.com.tr/search?q=site ... book+login
https://www.google.com.tr/search?q=auto ... book+login

[darendeli]

Tamam Teşekkürler ilgin için...

[BlueLife]

@darendeli

Çözüm bulabildin mi? Bulamadıysan istersen gün içinde arasıra kullandığım basit yöntemle bir kaç deneme yapabilirim....

[darendeli]

@BlueLife
Hala Arıyorum login olmanın yolu WinHttp ile alakalıymış suan ona bakıyorum Denemelerinide Göstere Bilirsin Merak Etmiyor Değilim..

[darendeli]

@BlueLife
Bak suna Benzer Girişleri Saglıyorum Ama Böyle Giriş Yapmak istemiyorum yapacagım Programda login olacak sadece Birlikte çözzeriz Belki Ortaya Güzel Programlar Çıkacaktır...

Kod: Tümünü seç

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GDIPlus.au3>
#include <EditConstants.au3>

;#Escape program
HotKeySet("{ESC}", "Terminate")

Local $iWidthCell = 70 ;#GUI Create
$width = 800 ;#GUI Create
$height = 625 ;#GUI Create

Global $x ;#Func Email
Global $y ;#Func Password


_IEErrorHandlerRegister()
#Region ### START Koda GUI section ### Form=
$hMain = GUICreate("COK", 1015, 585, @DesktopWidth / 2 - $width / 2, @DesktopHeight / 2 - $height / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)

$wPos = WinGetPos($hMain)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;#Input Email
GUICtrlCreateLabel("Email:", 880, 65, $iWidthCell)
$hInput1 = GUICtrlCreateInput("", 880, 90, 85, 20)
;#Input Password
GUICtrlCreateLabel("Password:", 880, 115, $iWidthCell)
$hInput2 = GUICtrlCreateInput("", 880, 140, 85, 20,$ES_PASSWORD)

;#Initializes the IE Explore
Local $RunProgram = GUICtrlCreateButton("Run Program", 880, 170, 85, 25)

;#IE Create
Func internet()
    Local $oIE = _IECreateEmbedded()

    GUICtrlCreateObj($oIE, 0, 0, $width + 0, $height + 0)
    _IENavigate($oIE, "https://www.facebook.com/?_rdr=p")

    Local $username = _IEGetObjByName($oIE, "email")
    Local $password = _IEGetObjByName($oIE, "pass")
    Local $button = _IEGetObjByName($oIE, "u_0_x")

    _IEFormElementSetValue($username, $x)
    _IEFormElementSetValue($password, $y)
    ;$oBtn = _IEGetObjById($oIE, "u_0_x") ; works on the main login page
    ;$oBtn = _IEGetObjById($oIE, "u_0_2") ; works on the second login page
    ;   _IEAction($oBtn, "click")
EndFunc   ;==>internet

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $idClose
            ExitLoop
        Case $RunProgram
            internet()
            sleep(1000)
            Email(GUICtrlRead($hInput1))
			sleep(1000)
			Send("{TAB}")
            sleep(1000)
            Password(GUICtrlRead($hInput2))
			Send("{ENTER}")
    EndSwitch
WEnd

Func Email($x)
    Send($x)
EndFunc   ;==>Email

Func Password($y)
    Send($y)
EndFunc   ;==>Password

Func Terminate()
    Exit
EndFunc   ;==>Terminate

[BlueLife]

Ben autoit içinde bir ie objesi oluşturup onun üzerinden login yapıp, sonra ilgili bilgileri alırdım. Böyle yaparsak sonradan bu autoit objesini gizli çalıştırabiliriz veyahut yönetebiliriz. Bilgiler htlm veyahut text olarak alınabilir. Ben örnekte text olarak aldım. Sonra alınan bu bilgiler içinde ihtiyacımız olanı bulur kullanırız string komutlarıyla.

Örnek aşağıda. Facebook için login oluyor sorunsuz bende. Lakin sonraki çalıştırmada önceki hesap açık kaldığı için sorun çıkıyor malesef.
Çok fazla vaktim yok malesef. Sen biraz kurcalarsın. Mail ve şifreyi düzeltmeyi unutma.

Not: Bu eski autoit versiyonu üzerinde hazırlandı...

Kod: Tümünü seç

;~ #NoTrayIcon
Opt("GUIResizeMode", 768)
Opt("GUIOnEventMode", 1)

Local $F_Mail = "mail@msn.com"
Local $F_PassWord = "sifre"

_GET_INFO($F_Mail, $F_PassWord)

Func _GET_INFO($Mail, $Pass)
	Local $BLUE_OIE = ObjCreate("Shell.Explorer.2")
	Local $obj_Error = ObjEvent("AutoIt.Error", "_Obj_Error")
	Local $MAINPAGE = GUICreate("", 800, 600, -1, -1, 0x00040000 + 0x00020000 + 0x00010000)
	GUISetOnEvent(-3,"_EXIT")

	Local $MAINPAGE_OBJECT = GUICtrlCreateObj($BLUE_OIE, 0, 0, 800, 575)
	GUICtrlSetResizing(-1, 102)

	Local $s_html = _GET_HTLM($Mail,$Pass)
	With $BLUE_OIE
		.visible = 1
		.navigate("about:blank")
		.document.write($s_html)
	EndWith
	While $BLUE_OIE.Busy()
		Sleep(50)
	WEnd

	;sayfadsaki yazıları alabilirsin.
	MsgBox(64,"Alınan bilgi",$BLUE_OIE.document.title & @crlf & StringStripWS($BLUE_OIE.document.body.innerText,8))

	;Burası sana bağlı. Sonra istersen sayfayı gizlersin veyahut sana gereken bilgiyi alınca silersin.
	GUISetState(@SW_SHOW, $MAINPAGE)
	While 1
		Sleep(100)
	WEnd
EndFunc

Func _GET_HTLM($Mail, $Pass)
	Local $Htlm_File = "0x3C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574662D38223F3E0D0A3C21444F4354595045" & _
	"2068746D6C205055424C494320222D2F2F574150464F52554D2F2F445444205848544D4C204D6F62696C6520312E302F2F45" & _
	"4E222022687474703A2F2F7777772E776170666F72756D2E6F72672F4454442F7868746D6C2D6D6F62696C6531302E647464" & _
	"223E3C68746D6C20786D6C6E733D22687474703A2F2F7777772E77332E6F72672F313939392F7868746D6C223E3C68656164" & _
	"3E3C7469746C653E46616365626F6F6B3C2F7469746C653E0D0A3C6D657461206E616D653D2272656665727265722220636F" & _
	"6E74656E743D226F726967696E2D7768656E2D63726F73736F726967696E222069643D226D6574615F726566657272657222" & _
	"202F3E0D0A3C6C696E6B2072656C3D2263616E6F6E6963616C2220687265663D2268747470733A2F2F7777772E6661636562" & _
	"6F6F6B2E636F6D2F203C766965772D736F757263653A68747470733A2F2F7777772E66616365626F6F6B2E636F6D2F3E2220" & _
	"2F3E3C2F686561643E3C626F647920746162696E6465783D22302220636C6173733D226220632064206520662067223E3C64" & _
	"697620636C6173733D2268223E3C6469762069643D2276696577706F7274223E0D0A3C64697620636C6173733D2269206A22" & _
	"2069643D22686561646572223E266E6273703B3C2F6469763E3C6469762069643D226F626A656374735F636F6E7461696E65" & _
	"72223E3C64697620636C6173733D22742067222069643D22726F6F742220726F6C653D226D61696E223E3C7461626C652063" & _
	"6C6173733D2275223E3C74626F64793E3C74723E3C746420636C6173733D2276223E3C64697620636C6173733D2277207820" & _
	"7922207374796C653D22646973706C61793A206E6F6E653B223E0D0A3C64697620636C6173733D227A223E3C2F6469763E3C" & _
	"2F6469763E3C6469763E3C64697620636C6173733D226261206262223E3C6469763E3C2F6469763E0D0A3C666F726D206D65" & _
	"74686F643D22706F73742220636C6173733D226263222069643D226C6F67696E5F666F726D22206E6F76616C69646174653D" & _
	"22312220616374696F6E3D2268747470733A2F2F6D2E66616365626F6F6B2E636F6D2F6C6F67696E2E7068703F7265667372" & _
	"633D68747470732533412532462532466D2E66616365626F6F6B2E636F6D253246266C77763D3130302672656669643D3826" & _
	"6C743B766965772D736F757263653A68747470733A2F2F6D2E66616365626F6F6B2E636F6D2F6C6F67696E2E7068703F7265" & _
	"667372633D68747470732533412532462532466D2E66616365626F6F6B2E636F6D253246266C77763D313030267265666964" & _
	"3D382667743B223E0D0A3C696E70757420747970653D2268696464656E22206E616D653D226C7364222076616C75653D2241" & _
	"566F393943517022206175746F636F6D706C6574653D226F666622202F3E3C696E70757420747970653D2268696464656E22" & _
	"206E616D653D22636861727365745F74657374222076616C75653D22262378323061633B2C26237862343B2C262378323061" & _
	"633B2C26237862343B2C262378366333343B2C2623783431343B2C2623783430343B22202F3E3C696E70757420747970653D" & _
	"2268696464656E22206E616D653D2276657273696F6E222076616C75653D223122202F3E3C696E70757420747970653D2268" & _
	"696464656E222069643D22616A617822206E616D653D22616A6178222076616C75653D223022202F3E0D0A3C696E70757420" & _
	"747970653D2268696464656E222069643D22776964746822206E616D653D227769647468222076616C75653D223022202F3E" & _
	"3C696E70757420747970653D2268696464656E222069643D2270787222206E616D653D22707872222076616C75653D223022" & _
	"202F3E3C696E70757420747970653D2268696464656E222069643D2267707322206E616D653D22677073222076616C75653D" & _
	"223022202F3E3C696E70757420747970653D2268696464656E222069643D2264696D656E73696F6E7322206E616D653D2264" & _
	"696D656E73696F6E73222076616C75653D223022202F3E3C696E70757420747970653D2268696464656E22206E616D653D22"

	$Htlm_File &= "6D5F7473222076616C75653D223134363533373030333822202F3E0D0A3C696E70757420747970653D2268696464656E2220" & _
	"6E616D653D226C69222076616C75653D2274735658562D465F34314A782D544662644B54374744506D22202F3E3C756C2063" & _
	"6C6173733D226264206265206266223E3C6C6920636C6173733D226265223E3C683320636C6173733D226267206268206269" & _
	"223E452D706F73746120766579612054656C65666F6E3C2F68333E0D0A3C696E707574206175746F636F72726563743D226F" & _
	"666622206175746F6361706974616C697A653D226F66662220636C6173733D22626A20626B20626C22206E616D653D22656D" & _
	"61696C222076616C75653D22626C75656C696665312220747970653D2274657874222073697A653D22323022202F3E3C2F6C" & _
	"693E3C6C6920636C6173733D226265223E3C6469763E3C683320636C6173733D226267206268206269223EDE696672653C2F" & _
	"68333E0D0A3C696E707574206175746F636F72726563743D226F666622206175746F6361706974616C697A653D226F666622" & _
	"20636C6173733D22626A20626B20626D20626E22206E616D653D22706173732220747970653D2270617373776F7264222073" & _
	"697A653D223230222076616C75653D22626C75656C6966653222202F3E3C2F6469763E3C2F6C693E3C6C6920636C6173733D" & _
	"226265223E0D0A3C696E7075742076616C75653D2254616D616D2220747970653D227375626D697422206E616D653D226C6F" & _
	"67696E2220636C6173733D226E206F20626F20627020627122202F3E3C2F6C693E3C2F756C3E3C6E6F7363726970743E3C69" & _
	"6E70757420747970653D2268696464656E22206E616D653D225F66625F6E6F736372697074222076616C75653D2274727565" & _
	"22202F3E3C2F6E6F7363726970743E3C2F666F726D3E0D0A3C73637269707420747970653D22746578742F6A617661736372" & _
	"697074223E646F63756D656E742E676574456C656D656E744279496428276C6F67696E5F666F726D27292E7375626D697428" & _
	"293B3C2F7363726970743E0D0A3C64697620636C6173733D226272223E266E6273703B3C2F6469763E3C2F6469763E3C2F64" & _
	"69763E3C2F74643E3C2F74723E3C2F74626F64793E3C2F7461626C653E3C2F6469763E3C2F6469763E3C2F6469763E3C2F64" & _
	"69763E0D0A3C2F626F64793E3C2F68746D6C3E"

	$Htlm_File = BinaryToString(Binary($Htlm_File),1)
	$Htlm_File = StringReplace($Htlm_File,"bluelife1",$Mail)
	$Htlm_File = StringReplace($Htlm_File,"bluelife2",$Pass)
	Return $Htlm_File
EndFunc

Func _Obj_Error()
EndFunc   ;==>_Obj_Error

Func _EXIT()
	Exit
EndFunc   ;==>_EXIT

[darendeli]

veri cekme isinde ilerleme kaydediyoruz login kaldı

Kod: Tümünü seç

$gui = GUICreate("")
$input = GUICtrlCreateEdit("", 10, 10, 390, 100)
$buton = GUICtrlCreateButton("Veri al", 150, 150, 100, 30)
GUISetState()
While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $buton
			$read = InetRead("https://www.facebook.com", 1)
			If Not(@error) Then
				$read = BinaryToString($read, 4)
				$exp = StringRegExp($read, '<div class="_5iyx">(.*?)</div>', 3)
				If Not(@error) Then
					GUICtrlSetData($input, $exp[0])
				EndIf
			EndIf
	EndSwitch
WEnd

[darendeli]

winHTTP ile login olunuyor ama daha cozemedim...