Вопрос по VB6

Да простит меня администрация, если делаю что-нибудь не так
А проблема у меня такая: нужно реализовать такую программу, как в пуске(анологичную "Выполнить"). Всё довольно просто, прописываешь путь в TextBox, нажимаешь CommandButton и запрос выполняется.
Я новичок, так что сильно не ругайтесь за тупость

 

http://tinyurl.com/3lsde2t
И впредь сначала там, потом сюда)
Там в выдаче посмотри www.vbforums.com.
Там даже с примером.

 

конечно же я искал и не нашел

ХЕЛП

 

Code:

Private Sub CommandButton _Click() 
 
    PID = Shell(TextBox.Text, vbNormalFocus)
 
End Sub

 

Кури ShellExecute (http://msdn.microsoft.com/en-us/library/bb762153%28v=vs.85%29.aspx)

 

я за тебя даже запрос ввел, и сказал на каком сайте смотреть, а ты...

Code:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
    ShellExecute 0, "Open", "C:\rar.exe a -r -ep1 -v", vbNullString, vbNullString, vbHidden
End Sub 

 

И как?? не фурычит(((

 

....

 

Мне нужно что-то типо такого, а на сайте не понятно((((



или так :



ХЕЛП

 

ТС, не ленись и соизволь хотя бы перейти по ссылке, что я давал выше, харош заниматься тупым копипастом.

П.С. если с английским траблы, то можно поискать на русском по запросу ShellExecute VB6 и получим эту ссылку http://kbyte.ru/ru/Programming/Guides.aspx?id=193&mode=show. Неужели это так сложно?

 

Дак я переходил. Я еще совсем нуб в этом деле там вообще не понятно((

 

Аееееееееееееееееееееее
Получилось!!!! Спасибо огромное

Code:

Option Explicit  Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long  Private Const SW_SHOWNORMAL = 1  Private Const SW_SHOWMAXIMIZED = 2  Private Const SW_SHOWMINIMIZED = 3    Private Sub Command1_Click()    ShellExecute 0, vbNullString, Text1.Text, vbNullString, vbNullString, SW_SHOWNORMAL  End Sub    

 

ТС нарк.

Code:

Private Sub Command1_Click()
Shell (Text1.Text)
Exd Sub

 

Тема закрыта