28. februar 2008 - 23:04Der er
10 kommentarer og 1 løsning
fil placering med en ekstra skråstreg
jeg har følgene kode:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CheckForExistingInstance()
'hide the program from taskbar and make it invisible Me.Visible = True Me.ShowInTaskbar = False
'make the program execute on startup Dim path path = App_Path() Dim Startup_key As String Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run" Dim Reg As Object Reg = CreateObject("wscript.shell") Reg.RegWrite(Startup_key & "winmx32", path & "\" & "winmx32" & ".exe")
End Sub Public Sub CheckForExistingInstance() 'check for existing instances of this program, if any is found, close this one. If Process.GetProcessesByName _ (Process.GetCurrentProcess.ProcessName).Length > 1 Then Application.Exit() End If End Sub
når programmet starter skal den lægge en streng ind i HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run med programmets filplacering og navn, (i dette tilfælde: C:\Users\Martin Tandrup\Desktop\jumpscar\winmx32\bin\Debug\\winmx32.exe) hvor kommer den ekstra \ efter debug fra?
er der en bedre måde end: Startup_key & "winmx32", path & "\" & "winmx32" & ".exe" at skrive placering på?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Namespace E Public Class MainClass Public Shared Sub Main(ByVal args As String()) Dim base As String = AppDomain.CurrentDomain.BaseDirectory() Console.WriteLine(base & "foobar.exe") Console.WriteLine(Path.Combine(base, "foobar.exe")) Console.ReadKey() End Sub End Class End Namespace
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.