gorg313
سه شنبه 16 مهر 1392, 15:35 عصر
با عرض سلام خدمت دوستان
من داشتم يه برنامه مي نوشتم براي بررسي وضعيت آي دي ياهو که ب مشکل برخوردم
سايتي که من ميخوام ازش استفاده کنم اينه
:اشتباه:http://www.imvisible.info (http://www.imvisible.info/):لبخند:
وقتي سايت را در بروزر بارگذاري ميکنم وقتي آي دي را در text1 وارد مي کنم درست وارد ميکنه
اول بايد سايت باز بشه
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.imvisible.info"
End Sub
دوم در text1 مقدار را وارد ميکنيم
Private Sub Text1_Change()
WebBrowser1.Document.Forms(0).elements("id").Value = Text1.Text
End Sub
تا اينجا مشکلي ندارم ولي در قسمت بررسي نوشته class=<"bsend">
<div class="bsend"></div>
من اينو ندونستم کلاس داره فقط name نداره
از سند کي هم استفاده کردم فايد نکرد
Private Sub Command1_Click()
WebBrowser1.Document.Forms(0).elements("bsend").Click
End Sub
من چه کار کنم ممنون ميشم کمک کنيد اگه سورس نمونه هم داشته باشيد خودم ببينم مي فهمم چي به چيه
لطفآ راهنمايي کنيد:قلب:
:تشویق:
من داشتم يه برنامه مي نوشتم براي بررسي وضعيت آي دي ياهو که ب مشکل برخوردم
سايتي که من ميخوام ازش استفاده کنم اينه
:اشتباه:http://www.imvisible.info (http://www.imvisible.info/):لبخند:
وقتي سايت را در بروزر بارگذاري ميکنم وقتي آي دي را در text1 وارد مي کنم درست وارد ميکنه
اول بايد سايت باز بشه
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.imvisible.info"
End Sub
دوم در text1 مقدار را وارد ميکنيم
Private Sub Text1_Change()
WebBrowser1.Document.Forms(0).elements("id").Value = Text1.Text
End Sub
تا اينجا مشکلي ندارم ولي در قسمت بررسي نوشته class=<"bsend">
<div class="bsend"></div>
من اينو ندونستم کلاس داره فقط name نداره
از سند کي هم استفاده کردم فايد نکرد
Private Sub Command1_Click()
WebBrowser1.Document.Forms(0).elements("bsend").Click
End Sub
من چه کار کنم ممنون ميشم کمک کنيد اگه سورس نمونه هم داشته باشيد خودم ببينم مي فهمم چي به چيه
لطفآ راهنمايي کنيد:قلب:
:تشویق: