Voithia me Visual Basic 6 <--

[gkastros]

Thelo na ftiaxo ena arxio setup apo visual basic pu otan tha ektelite tha grafi kapia arxia se sigekrimeni thesi kai tha fortoni ena programma na trexi kathe fora pu xekinane ta windows.

Epidi to teleuteo ida oti xriazete na gine editing sto registry tha ithela na xero an iparxi enas pio eukolos tropos (px to autoexec.bat ton palion windows).

Euxaristo

[Typhoon]

Loipon den thymamai kala giati exo kairo na asxolitho me VB6 alla mporo na sou po ta eksis.

Kapou sto Program group tou VS yparxei ena Package & Deployment Wizard (kapos etsi) Auto ftiaxnei setup programma analoga me tis apaitiseis sou. Dokimase auto an sou kanei, allios o source code pou to dimiourgei yparxei kapou mesa sta samples tou VS. Mporeis na to breis & na ton peirakseis katallila oste na pareis auto pou thes.

[GothicCrusader]

windows scripting host και vbscript.

 

τα υπόλοιπα τα ανακαλύπτεις μόνο σου

[Opaque]

Pragmati, gia na ekteleite mia efarmogh kata thn ekkinhsh twn windows, prepei na peirakseis thn registry. Ayto mporeis na to kaneis xrhsimopoiwntas kapoia API's. Etsi loipon, mporeis na grapseis (gia Visual Basic 6) :

 

Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long,ByVal lpSubKey As String, ByVal ulOptions As Long,ByVal samDesired As Long,phkResult As Long) As Long

 

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

 

Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long,ByVal lpValueName As String,ByVal Reserved As Long,ByVal dwType As Long,lpData as Any,ByVal cbData As Long) As Long

 

Public Const HKEY_CURRENT_USER = &H80000001

Public Const KEY_WRITE = &H20006

Public Const REG_SZ = 1

 

Sub StartRun(File As String)

Dim hregkey As Long

Dim subkey As String

Dim stringbuffer As String

 

subkey = "Software\Microsoft\Windows\CurrentVersion\Run"

 

retval=RegOpenKeyEx(HKEY_CURRENT_USER,subkey,0,KEY_WRITE,hregkey)

 

If retval <> 0 Then

Debug.Print "Δεν μπορεί να ανοίξει το subkey"

Exit Sub

End If

 

stringbuffer=File & vbNullChar

 

retval=RegSetValueEx(hregkey,"My App",0,REG_SZ,ByVal stringbuffer,Len(stringbuffer))

 

RegCloseKey hregkey

End Sub

 

kai meta na xrhsimopoihseis aplws thn synarthsh StartRun (o kwdikas einai parmenos apo biblio). Elpizw na se boi8hsa.

[MetalHead]

Mήπως θα μπορούσες να μας πεις ποιο είναι αυτο το βιβλίο (αν κυκλοφορει ακομα) ή αν εχεις καποιο αλλο υπόψην σου που να αναφερεται εκτεταμενα στα API;

[Opaque]

To biblio ayto legetai "Ta mystika twn API sth Visual Basic". To eixa parei apo ton Papaswthrioy, kai an asxoleisai entatika me visual basic, pisteyw oti einai poly kalh ependysh.

[MetalHead]

Ευχαριστώ