دوستان من مشکلی که دارم اینه که صفح سایتی که httpS باشه رو نمیتونم دانلود کنم
ضمنا از کتبخونه های httputils و SSLErrorhttp و Ariahttp هم استفاده کردم
تکه کدم هم به صورت زیر هست
Sub reg_Click
Dim htreg As HttpJob
htreg.Initialize("htreg",Me)
"htreg.Download("https://storebot.me/bot/mypokerbot))
"WebView1.LoadUrl("https://storebot.me/bot/mypokerbot))
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success=True Then
If Job.JobName="htreg" Then
str=Job.GetString
Msgbox("success","")
End If
End If
End Sub
ولی عبارت "Success" نمایش داده نمیشه
یه نکته دیگه این سایته فیلتره ولی خب من با هیتلر شکن رو گوشی بازش میکنم
و واسه مطمئن شدن توی اون وب ویوویی ک گذاشتم نشونش میده
سوال
m007moh 181
با عرص سلام و تبریک سال نو
دوستان من مشکلی که دارم اینه که صفح سایتی که httpS باشه رو نمیتونم دانلود کنم
ضمنا از کتبخونه های httputils و SSLErrorhttp و Ariahttp هم استفاده کردم
تکه کدم هم به صورت زیر هست
Sub reg_Click Dim htreg As HttpJob htreg.Initialize("htreg",Me) "htreg.Download("https://storebot.me/bot/mypokerbot)) "WebView1.LoadUrl("https://storebot.me/bot/mypokerbot)) End Sub Sub JobDone (Job As HttpJob) If Job.Success=True Then If Job.JobName="htreg" Then str=Job.GetString Msgbox("success","") End If End If End Subولی عبارت "Success" نمایش داده نمیشه
یه نکته دیگه این سایته فیلتره ولی خب من با هیتلر شکن رو گوشی بازش میکنم
و واسه مطمئن شدن توی اون وب ویوویی ک گذاشتم نشونش میده
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.