چطوری میتونم یه آدرس اینترنت رو توی وی بی باز کنم

[mrt_Azm]

سلام
تمرینی طرح شده توسط استاد که چطوری میشه یه آدرس اینترنت رو توی وی بی باز کرد و بعد از یه مدت مشخص اونو نست مثه POPUP های تبلیغاتی سایتها
مثلا سایت گوگل رو باز کنم و بعد 10 ثانیه ببندمش
فکر میکنم اگه راهی پیدا کنم کل اینترنت اکسپلورر های سیستم رو ببندم بشه یه کاریش کرد
ممنون میشم راهنماییم کنین

[mohammad-alone]

دوست گلم از فرمان Shell استفاده کن
Call Shell("www.google.com")

[SHD.NET]

از دستور kill process هم می تونی ببندیش .

[arash020]

سلام
باز کردن اینترنت اکسپلورر و دادن آدرس دلخواه :

Dim objShell, objExecObject
objShell = CreateObject("WScript.Shell")
objExecObject = objShell.Exec("C:\Program Files\Internet Explorer\iexplore.exe " & "www.eaglevb.blogfa.com")

[mrt_Azm]

سلام خيلي خيلي ممنونم
دوستان لطف كردين
در صورت امكان بيشتر راجع به دستور KillProcess توضيح بدين ممنون ميشم
اينكه چطوري ميتونم فقط يه پردازش خاص رو ببندم

[mrt_Azm]

اساتيد محترم ممنون ميشم راجع به kill process كردن اينترنت اكسپلورر توي وي بي دات نت توضيح بدين

[arash020]

سلام
یه تکه سورس برای بستن پروسس با استفاده از اسمش رو پیدا کردم...منتها به VB6 هستش...ببخشید وقت نداشتم خودم تبدیل کنم...!
شما لطف کن خودت تبدیلو اجام بده تست کن بعد توی همین تاپیک اگه کارایی داشت بزار که بقیه هم استفاده کنن...
ممنون.
توجه::: text1-> اسم پروسسی که میخوای بسته بشه رو توش باید بنویسی (از تسک منیجر یا از روی عنوان پنجره,خودت تست کن ببین کدوم کار میکنه.)

سورس:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Private Sub Command1_Click()
Text1.AddItem (Text1.Text)
If Timer1.Enabled = False Then
Timer1.Interval = 1000
Timer1.Enabled = True
MsgBox Timer1.Enabled
ElseIf Timer1.Enabled = True Then
Timer1.Enabled = False
MsgBox Timer1.Enabled
End If
End Sub

Private Sub Form_Load()
Me.Caption = "win closing"
Timer1.Enabled = False
Text1 = "my computer"
End Sub

Private Sub Timer1_Timer()
Dim wnd As Long
wnd = FindWindow(vbNullString, Text1)
If wnd <> 0 Then
MsgBox "found window..."
PostMessage wnd, WM_CLOSE, 0&, 0&
End If
End Sub

[msh_gold]

با سلام دوستان من خيلي جستجو كردم ولي چيزي پيدا نكردم براي همين اين تاپيك رو زنده كردم من يه سايت رو با انترنت اكسپلورر باز مي كنم ولي در تكس بار نشون ميده و بايد روش كليد كنم تا بياد بالا و سايتو نشون بده دوما من مي خوام ie بصورت ماكسيمايز سايت منو باز كنه دوستان اگه راهنمايي كنن ممنون ميشم

[Hossis]

به نظرم یک وب بروزر تو فرمتون ایجاد کرده و سپس با متد Navigate اون آدرس رو باز کنید بعد با تایمر می تونید اون رو ببندید. به این نحو که صفحه وب رو خالی کنید یا آدرس دیگه بهش بدید.
خود خاصیت document مربوط به وب بروزر , دستور بستن و باز کردن رو داره