VB : Execute Link

[PavelX]

Kalispera....

 

ayto poy psaxnw einai enas tropos na ektelw arxeia me extension

.lnk (diladi shortcuts) mesw tis Visual Basic se Windows XP.

Ta sources poy katevasa apo to Internet gia kapoion logo den

leitourgoun.Diladi ayta poy kaloun to API ShellExecute den

ekteloun to arxeio.

 

Dokimasa enan allo tropo alla kai pali antimetopizw provlima.

Vazw to path toy .lnk arxeiou se ena .bat arxeio kai to ektelw

apo ekei me tin entoli Shell.

 

Shell "C:\MyLink.bat", alla mou vgazei ena para8yro kai leei oti

ta windows gia na ektelesoun to arxeio prepei na kseroun me

poio programma dimiourgi8ike to arxeio i' alla tetoia perierga.

 

Mporei kaneis na me voithisei ? To xreiazomai amesa.

 

Eyxaristw

 

Pavel

[Giannis__]

Auto isws boithisei (exei kai source code):

 

http://www.thescarms.com/VBasic/shelllnk.asp

[datanet]

Λοιπον, κανε αυτο το απλο παραδειγμα και μετα το χρησιμοποιεις στο προγραμμα σου:

 

1) Ανοιξε την Visual Basic (version 6) και σε μια form πετα μεσα της ενα OLE control, που θα το βρεις στα βασικα controls.

To OLE control προφανως θα εχει ονομα OLE1.

 

2) Βαλε και ενα Command Button στη form σου. Και τωρα για κωδικα της form σου γραψε αυτο:

 

Private Sub Command1_Click()

'Στο OLE1.SourceDoc θα βαζεις το path του οποιουδηποτε αρχειου που θελεις να εκτελεσεις. Εδω π.χ. εβαλα το C:\WINNT\NOTEPAD.EXE .

OLE1.SourceDoc = "C:\WINNT\NOTEPAD.EXE"

OLE1.CreateEmbed (OLE1.SourceDoc)

OLE1.DoVerb (OLE1.Verb)

End Sub

 

3) Have Fun!!!