VB - ako spustit odkaz na Exe subor?

[tom18]

potrebujem poradit mam MS Visual studio 2010 a potrebujem vo VB nastavit aby po kliknuti na tlacitko mi otovrilo odkaz na exe subor "ale" bez toho aby v kode bola cesta k suboru ten odkaz bude hned pri tej aplikacii dakujem

[galen]

... zeby:

Kód: Vybrať všetko

    Sub runAS()
        Dim process As System.Diagnostics.Process = Nothing
        Dim processStartInfo As System.Diagnostics.ProcessStartInfo
        processStartInfo = New System.Diagnostics.ProcessStartInfo()

        processStartInfo.FileName = "notepad.exe" 'program co chces spustit

        If System.Environment.OSVersion.Version.Major >= 6 Then
          ' Run as admin on Windows Vista or higher 
         processStartInfo.Verb = "runas"      
        End If
        ' processStartInfo.Arguments = "args" 'arguments
        processStartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
        processStartInfo.UseShellExecute = True

        Try
            process = System.Diagnostics.Process.Start(processStartInfo)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If Not (process Is Nothing) Then
                process.Dispose()
            End If
        End Try
    End Sub

namiesto notepadu si tam kludne spustaj cosi, co si tam dotiahnes premennou (riadok processStartInfo.FileName = "notepad.exe")

[tom18]

hmm ale mne pise ze za tymto

Kód: Vybrať všetko

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ma ist End Sub a pot kliknuti na tlacitko sa nic nedeje ked dam pridat End Sub a pise my chybu nechce mi to asni spustit v debug mode pokial tam End Sub nedam

[galen]

tak skus ... nastudovat ako funguje "sub" a na co je to dobre
potom prides na to, ze ked do tej sub od button handlera das volanie toho runAs()
a runAs umiestnis kdesi mimo tej sub (button handlera) tak by to mohlo viest smerom ktory potrebujes

[tom18]

tak skus ... nastudovat ako funguje "sub" a na co je to dobre
potom prides na to, ze ked do tej sub od button handlera das volanie toho runAs()
a runAs umiestnis kdesi mimo tej sub (button handlera) tak by to mohlo viest smerom ktory potrebujes

tak to vela odomna chces aby som to pochopil ja niesom programator len potrebujem ten kod do aplikacie to je vsetko tak by som ti bol vdacny keby si mi ho sem napisal tak ako to ma byt vdaka

[galen]

ok, VB tu nemam rozbehane, takze to v klude moze obsahovat chyby:

Kód: Vybrať všetko

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        call runAs()
    End Sub

    Sub runAS()
        Dim process As System.Diagnostics.Process = Nothing
        Dim processStartInfo As System.Diagnostics.ProcessStartInfo
        processStartInfo = New System.Diagnostics.ProcessStartInfo()

        processStartInfo.FileName = "notepad.exe" 'program co chces spustit

        If System.Environment.OSVersion.Version.Major >= 6 Then
          ' Run as admin on Windows Vista or higher
         processStartInfo.Verb = "runas"     
        End If
        ' processStartInfo.Arguments = "args" 'arguments
        processStartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
        processStartInfo.UseShellExecute = True

        Try
            process = System.Diagnostics.Process.Start(processStartInfo)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If Not (process Is Nothing) Then
                process.Dispose()
            End If
        End Try
    End Sub

plus este nejak doriesit, aby to nespustalo "notepad" ale to co ty potrebujes

[tom18]

velmi pekne dakujem uz mi to ide a chcem sa opytat je nejaky prikaz nato ze ked zmenim hodnotu v tej aplikacii aby v urcitom subore *INI zmenilo hodnotu tiez? napr GodMode=0 na GodMode=1

[galen]

nooo ... bud "nejak" nalinkovat ini subor priamo do App, nasledne modifikaciou hodnot by sa teoreticky pri ukonceni app mohol upravit aj ini subor

alebo ho pri spusteni nacitat ako textak, rozparsovat hodnoty ... a pri ukoncovani aplikacie ulozit zmeny hodnot nas5 do suboru

s prvou alternativou moc skusenosti nemam, ale predpokladam, ze M$ take nieco ma aj voci suborom (bezne pouzivam voci DB)

takze hura strycek google, a hladat snippety, co by to vedeli spravit

[tom18]

este sa vratim spat k tomu spustaniu odkazu ked skopirujem ten kod do dalsieho tlacitka a prepisem subor ktory sa ma spustat tak vypisuje chybu

Kód: Vybrať všetko

Error	1	'Public Sub runAS()' has multiple definitions with identical signatures.

totiz tych tlacitiek tam je 5 a kazde tlacitko bude spustat inu aplikaciu da sa stym nieco spravit?

[galen]

najjednoduchsie mas ... emm ...
upravit tu sub runAs tak, aby parametrom siel subor/string co treba pustat

emmm ...
budem strielat od brucha ...
ale zrejme takto:

Kód: Vybrať všetko

    Sub runAS(param as String)
'...
        processStartInfo.FileName = param 'program co chces spustit
'...
    end sub

a volanie nasledovne:

Kód: Vybrať všetko

call runAs("notepad.exe")

... kde "notepad.exe" skus nahradit cimkolvek inym

[tom18]

vdaka za pomoc a tie INI subory myslim ze som nieco videl na nete len to musim znova najst

[tom18]

prosim ta preinstaloval som win a dal som si MS visual studio 2010 ultimate a teraz mi tie prikazy nejako nechcu fungovat

[galen]

no, to bude asi tym, ze slapes vo VB nie VBA
a bohvie, ci nie nahodou dokonca VB.net

skus:

Kód: Vybrať všetko

Shell("notepad")

[tom18]

a v tom dlhom kode to ako kde mam dat alebo treba nieco odstranit?

[galen]

asi najjednoduchsie mas namiesto runAs(prikaz), resp call runAs(prikaz) volat priamo ten Shell(prikaz)