Spustenie odkazu na EXE subor – Visual Basic – Fórum – Programujte.com

potreboval by som skript ktory by spustil po kliknuti na tlacitko odkaz na exe subor ale v tom skripte nesmie byt cesta k odkazu odkaz bude priamo pri tej aplikacii a tych tlacitiek bude 5 a kazde tlacitko bude spustat iny odkaz na iny EXE subor

Shell (příklad http://www.developerfusion.com/article/9/shell-and-shellexecute-function/)

#2 liborb
ale tam je cesta k suboru. nvm ci to pomoze ale palikaciu robim vo MS visual studio 2010 ultimate

Někde tu cestou k aplikaci, co chceš spustit, musíš uvést.

#4 liborb
no jeden mi poslal tento skript ale v ultimate mi to nejako nechce ist tak preto piem ci nieje ina moznost bez cesty

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

Pokud je aplikace umístěná "na cestě", tak to lze i bez absolutní cesty. Jinak samozřejmě musíš uvádět úplnou cestu. A co ti na to nefunguje?

#6 liborb
pri spustani v debugmode pise toto:

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

Máš tam tu funkci vícekráte -> Sub runAS() pouze jednou a volat z reakcí na tlačítko třeba 100x.

#8 liborb
to som pochopil ze to tam mam viac krat ale tomu dalsiemu co si tanpisal ze volat z reakcí na tlačítko třeba 100x tomu som nepochopil

Princip funkce, definovat pouze jednou a pak volat třeba 100x. V tvém případě 5x z pěti různých reakcí na pět různých tlačítek.

#10 liborb
cize ten skript treba nejako upravit? nemozes sem skopnut upraveny skript ?

Upravit = nechat tam definici té funkce jen jednou.

#12 liborb
cize Sub runAS() vymazat z ostatnych a nechat len v jednom tlacitku?

Přesně tak, ale nejprve bych to odložil a být tebou, tak bych nastudovat něco o funkcích   

#14 liborb
no ale ja nesom programator ani nemam cas sa ucit zaklady atd len potrebujem tu aplikaciu naprogramovat nic viac tak nemozems mi sem hodit upraveny skript?

Nemůžu, protože to, co si sem zatím dal, je dobře. Špatně je to, tam máš tu funkci víckrát.   

#16 liborb
a potom ako nastavim dalsie tlacitka ked tam nemozem dat tu funkciu?

Buď tu funkci musíš upravit tak, aby brala jeden parametr, pomocí kterého řekneš, jaký exe spustit.

Nebo (a to je prasárna) u každého tlačítka tu funkci deklaruj s jiným názvem.

#18 z_moravec
napis to pre neprogramatorov :)

Sub runAS(app As String)
	...

        processStartInfo.FileName = app 'program co chces spustit

	...
End Sub

A pak voláš

runAs("notepad.exe")

#20 liborb
stale mi pise ze Sub runAS sa opakuje :(

Dej se celý kód, jinak se asi tohle vlákno konce nedočká   

#22 liborb

Private Sub PictureBox2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call runAS("notepad.exe")
    End Sub

    Sub runAS(ByVal param As String)
        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

To není celé, ne?

#24 liborb
to je cely kod ku jednemu tlacitku

Ale já chtěl celý kód. Jinak toto není celý kód k jednomu tlačítku, ale kód k obsluze události jednoho tlačítka + jedna funkce. Ve výsledné aplikaci bys měl mít obsluhu 5 tlačítek + jednu funkci s parametry (nebo obsluhu 5 tlačítek + 5 různě pojmenovaných funkcí).

#26 liborb
tak najprv musim mat nastavene aspon 2 tlacitka potom ostatne uz nebude problem len skopnem kod a prepisem nazov exe suboru respektive odkaz na exe subor

Private Sub PictureBox2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call runAS("notepad.exe")
End Sub

Private Sub PictureBox3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call runAS("cmd.exe")
End Sub

Private Sub PictureBox4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call runAS("calc.exe")
End Sub

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

        processStartInfo.FileName = param '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
  

#28 liborb
to mam ako do ktoreho tlacitka skopirovat ? :)

To je ukázka. Reakce na kliknutí do tří PictureBoxů (čekal bych Button   ) a v každé se spouští jiný program. V prvním se spustí editor, v druhém kalkulačka a ve třetím příkazový řádek.

#30 liborb
a co stym? ved mam tak jedno tlacitko napisane a stale pise ze Sub runAS sa opakuje

Celý kód ...

#32 liborb
ale coho cely kod ? celej aplikacie?

Ano.

#34 liborb
no ja to robim cez Windows Form nepises len cisto kod

Tak sem šoupni celý (nejlépe zazipovaný) projekt.

#36 liborb
to nemozem    takto mi nevies pomoct?

Nemůžeš sem poslat projekt s okenní aplikací, co obsahuje 2 tlačítka, které spouštějí notepad?  

Podle mě je v tomto vlákně správná odpověď už mockrát.

No ... třeba ti poradí někdo jiný.

#38 liborb
ono to nieje aplikacia ktora otvara notepad ten notepad je tam len ako priklad uvedeny. skus mi tu spranvu odpoved vysvetlit tak aby som to pochopil co tam trea presne spravit

Podívej se pořádně na tento příspěvek:

http://programujte.com/…a-exe-subor/#…

Tak to má vypadat. Vyhoď tu funkci runAs z kódu tlačítek, tam nech pouze její volání se správným parametrem (cestou k aplikaci, kterou chceš tím tlačítkem spustit).

Tak se pošli projekt, kde bude ten notepad místo toho tajemna, o které by si mohl přijít  

#40 z_moravec
cize ak som to spravne pochopil cele toto mam vyhodit hej?

Sub runAS(ByVal param As String)

#42 Tom
Ne, celou funkci, tzn. až po end sub

#43 z_moravec
no nechal som len toto.       ale ked spravim build zapnem aplikaciu kliknem na tlacitko aby spustilo odkaz tak naskoci toto http://imageshack.us/photo/my-images/196/beznzvuvv.jpg/

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call runAS("notepad.exe")
    End Sub

#44 Tom
Ten obrázek je opravdu užitečný :-)

#45 z_moravec
tak v detailoch tej tabulky sa pise toho viac ale to by bolo na viac screenoch kedze sa tabulka neda zvacsit

Neošetřená výjimka ... a když si vezmu, jak jsme se babrali s jednou funkcí, tak to bude asi na dlouho   

#46 Tom
Asi to taky vzdám, jak Libor. Buď si najdi někoho, kdo má aspoň minimum zkušeností a může ti s tím pomoct přímo u compu nebo sem hoď ten projekt.

#48 z_moravec
a keby ste vy spravili nejaky narychlo projekt vo MS visual studio 2010 a hodili ho sem a ja len skopnem kod?

Nebo mi ho pošli na email ... alespoň .vb soubor, kde to všechno je ...

a keby ste vy spravili nejaky narychlo projekt vo MS visual studio 2010 a hodili ho sem a ja len skopnem kod?