Visual Basic - Basic - PicBasic ve Türevleri
VB İle Bir Siteye Post Göndermek (Sorun)
VB İle Bir Siteye Post Göndermek (Sorun)
-
Kodlarımız
Private Sub Command1_Click()
DoEvents
WebBrowser1.Document.All("userId").Value = "deneme53"
WebBrowser1.Document.All("userPwd").Value = "sanane123"
'WebBrowser1.Document.All.Item("submit").Click
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "https://www.joymax.com/portal/Joymax_Front.jmx?workURL=https://portalcp.joymax.com/member/joymax_login.jmx&returnURL=https://www.joymax.com/portal/Joymax_Front.jmx?workURL=https://portalcp.joymax.com/member/member_manage.jmx"
End Sub
sitedeki kodlar :
frm.userId.value
frm.userPwd.value
frm.action = "./login_Pcs.jmx";
frm.submit();
kullanici adinin ismi userId
şifresininde userPwd
ama nesneler bulunamadı diyor
nasıl yaparız bunu bide buton ismide yok -
Private Sub Command1_Click()
DoEvents
WebBrowser1.Document.Forms("frm").elements("userId").Value = "deneme53"
WebBrowser1.Document.Forms("frm").elements("userPwd").Value = "sanane123"
WebBrowser1.Document.Forms("frm").Submit
End Sub
Böyle dene bide.. -
yine hata verdi
Object variable or with block variable not set
-
Hoca eğer WebBowser kullanma zorunluluğun yoksa İnet ile yapabilrisin.
Text5=Inet1.Open "http://www.joymax.com/portal...........?usrID=" & Text1 & " &userPwd=" & Text2 & ""
gibi. Kodda hata olabiliri ama mantık olarak aynı işi bu şekildede yapabilirisin.
-
peki
inette şifrenin doğru olup olmadığını nasıl kontrol ettiricez
-
DE5TROY3R bunu yazdı:
-----------------------------
peki
inette şifrenin doğru olup olmadığını nasıl kontrol ettiricez
-----------------------------Hocam aslında kodu eksik yazmışım
Text5=Inet1.open "http://........................"
şeklinde olacak ve o posttan dönen html nin tamamı Text5 e yazılacaktır. (Text5 sadece örnektir)
Text5 içindeki text ten bi arama yaparak bulabilrisin şifrenin doğru yada yanlış olduğunu....
Ama tam olarak ne yapmaya çlıştığını bilmiyorum koddan anladığımla anca bu kadar hoca....
-
post yaptığı yer ./login_Pcs.jmx
https://www.joymax.com/portal/./login_Pcs.jmx?userId=tolga&userPwd=123456
direk olarak post u kabul etmiyor galiba. 404 hatası alıyorum
edit
şifreyi 4 kere yanlış giren bişe yapmak istiyorum :)
-
DE5TROY3R bunu yazdı:
-----------------------------
post yaptığı yer ./login_Pcs.jmx
https://www.joymax.com/portal/./login_Pcs.jmx?userId=tolga&userPwd=123456
direk olarak post u kabul etmiyor galiba. 404 hatası alıyorum
edit
şifreyi 4 kere yanlış giren bişe yapmak istiyorum :)
-----------------------------Hocam normal olrak defalarca denediğim ve sorunsuz kullandığım bi işlem bu, ama https olduğundan hata veriyor olabilir hiç denemedim....
Edit: Hesap kitleme olayı desene :))
Edit2: Hocam Denyo yu denedinmi, eğer olursa değil 4, 1000 kere bile yanlış girer hiçç gocunmaz :)
-
Dengbej bunu yazdı:
-----------------------------
DE5TROY3R bunu yazdı:
-----------------------------
post yaptığı yer ./login_Pcs.jmx
https://www.joymax.com/portal/./login_Pcs.jmx?userId=tolga&userPwd=123456
direk olarak post u kabul etmiyor galiba. 404 hatası alıyorum
edit
şifreyi 4 kere yanlış giren bişe yapmak istiyorum :)
-----------------------------Hocam normal olrak defalarca denediğim ve sorunsuz kullandığım bi işlem bu, ama https olduğundan hata veriyor olabilir hiç denemedim....
Edit: Hesap kitleme olayı desene :))
Edit2: Hocam Denyo yu denedinmi, eğer olursa değil 4, 1000 kere bile yanlış girer hiçç gocunmaz :)
-----------------------------hoca denyoyla yapcağıma tarayıcıdan 4 kere yanlış girerim :) (You have to fill at least 1 key and value. dedi denyo 1 flooddan sonra)
program olsun istiyorum
bir kaç tane hesap varda
-
Text2="https://www.joymax.com/portal/Joymax_Front.jmx?workURL=https://
portalcp.joymax.com/member/joymax_login.jmx&returnURL=https://w
ww.joymax.com/portal/Joymax_Front.jmx?workURL=https://portalcp.j
oymax.com/member/member_manage.jmx"Inet1.Protocol = icHTTPS
Text1 = Inet1.OpenURL("" & Text2 & "")----------------------------------------------------------------------------------------------
Hoca bide şöyle bi dene bende html yi aldı text1 e, e ordan sonrasıda sana kalmış artık....
-
Hoca çalışması için geken kod şöyle olmalıymış;
---------------------------------------------------------------------------------------------
Text2="https://portalcp.joymax.com/member/login_Pcs.jmx?currentPath=&returnUR
L=https://www.joymax.com/portal/Joymax_Front.jmx%3FworkURL%3Dhttps:
//portalcp.joymax.com/member/member_manage.jmx&userId=XXXXXXuser
Pwd=YANLISSİFRE"Text1 = Inet1.OpenURL("" & Text2 & "")
-----------------------------------------------------------------------------------------
Denedim aslanlar gibi çalışıyor :|
Hazır proje kodlarınıda atayım zaten yaptım bari boşa gitmesin ;
http://hotfile.com/dl/31673294/0f29dff/Bloklayc.rar.html