PDA

View Full Version : Scriptable web Browser



madmax
پنج شنبه 02 بهمن 1382, 20:59 عصر
سلام دوستان
من به شدت به یک برنامه با امکانات زیر نیاز دارم
یک Web Browser که امکان دادن Script را داشته باشد
برای اینکه بیشتر موضوع رو درک کنید یه مثال میزنم
فکر کنم همتون صفحه ISPUTIL رو دیدن
که برای چک کردن میزان اعتبار باقی مونده استفاده می شه
حالا می خوام با این برنامه یک Script بنویسیم که خودش صفحه ISP UTIL رو باز کنه و
User name و Password رو وارد کنه و روی view Report کلیک کنه
بعد که صفخه دوم باز شو روی View Report کلیک کنه و میزان اعتبار رو از بالای صفحه بخونه و Message بده
برای این کار یک web Browser نیاز هست که بشه بهش Script داد
من یدونه پیدا کردم اما خیلی ضعیفه
اگه کسی از دوستان راهی رو بلده لطفا منو راهنمایی کنه
مرسی

madmax
شنبه 04 بهمن 1382, 00:58 صبح
یعنی کسی راه حلی نداره ؟!
شاید من بد توضیح دادم
ببینید فرض کنید من هر روز میخوام بیام توی Delphishop و در قسمت Visual Basic آخرین پست رو کپی کنم
پس یک برنامه می خوام که delphi shop رو باز کنه بعد User وPassword منو وارد کنه بعد بره داخل قسمت VB و آخرین پست رو بخونه
به نظر یک Web Browser با قابلیت Script نویسی بهترین گزینه باشه
هرکی راهی برای این کار بلده لطفا کمک کنه :roll:

S.Azish
دوشنبه 06 بهمن 1382, 14:37 عصر
به نظر من راحتترین راه اینه که خودتون این کارو توی VB انجام بدین یعنی از کنترل Web Browser استفاده کنید, به سایت مورد نظر برید و اشیا داخل صفحه رو کنترل کنید

Microsoft Internet Controls






Private Sub Form_Load()
WebBrowser1.Navigate ("mail.yahoo.com")
End Sub




Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'
Dim objEl As Object
Dim passwdInput As Object
Dim loginInput As Object

For Each objEl In pDisp.Document.All
If UCase(objEl.nodename) = "INPUT" Then
Select Case UCase(objEl.Name)
Case Is = "LOGIN"
Set loginInput = objEl
Case Is = "PASSWD"
Set passwdInput = objEl
End Select
End If
Next

'Sets the login name
If Not loginInput Is Nothing Then
loginInput.Value = "TEST"
End If
'Sets the password
If Not passwdInput Is Nothing Then
passwdInput.Value = "TEST"
End If
SendKeys "{ENTER}"
'
End Sub



همونطوری که میبینید میتونید به تمام اشیا داخل یک صفحه دسترسی داشته باشید و هر طور که میخواهید به اونا مقدار بدید. برای اینکه چک کنید الآن توی کدوم صفحه هستید میتونید پارامتر URL رو چک کنید.

Vahab
دوشنبه 06 بهمن 1382, 18:09 عصر
ممنون مفید بود