ã € € ã € € å> å »º å ¼ € å §
End Sub
Sub CreateProgManGroup (X As Type,
Office Professional 2007, GroupName $, GroupPath $)
Dim i As Integer
X.Label1.LinkTopic = X.Label1.LinkMode = 2
Rem ç © º å ¾ ª çŽ ¯ ä ½ ¿ DDEæœ ‰ æ-¶ é-'æ ‰ § è ¡ Œ
For i = 1 To 10
DoEvents
Next
X.Label1.LinkTimeout = one hundred
Rem LinkExecute æ ~ ¯ åœ ¨ DDEé € šé ¿™ æ · çš ,
X.Label1.LinkExecute i As Integer
X.Label1.LinkTopic = . LinkTimeout = one hundred
X.Label1.LinkExecute = fifty 'æ ¢ å ¤ Label1 çš
ã € € ã € € å ° † ç ¨
Text1.LinkTopic = > Text1.LinkExecute >
ã € € ã € € å ‡ è ® ¾ æ'ä »¬ æƒ ³ 把⠀ œc: vb5db myprog.exeâ € å» º ç «<æâ € œå ¯ åŠ ¨ â € èμ Œçš
ã € € ã € € åœ ¨ æ ¡Œé ¢ ä ¸ Šæ · »åŠ ç ¨ <å º çš«Æ · æ-¹ å ¼
ã € € ã € € å ‡ å |,
Microsoft Office 2010 Professional, ç ¨ <å º ä ¸ º C: Program Files MyProg Prog.exeï ¼ Œéœ € åŠ å, æ • ° / Para
ã € € ã € € æ-° é ä ¸ ª ï ¼ ŒæŠŠä ¸ <é ¢ çš ä »¥ å ¿ ï ¼
Alternative Explicit
Personal Sub Command1_Click ()
ã € € CreateGroup MyProg As String,
Office 2007 Professional, ByVal _
strTitle As String,
Office 2007 Keygen, ByVal intDDE As Integer, ByVal fLog As Boolean)
ã € € Const strCOMMA $ = € € Const strADDGRP $ = Dim i As Integer
ã € € Dim Sourcefile As String, Destinationfile As String
ã € € Form1.Label1.LinkMode = 0
ã € € For i% = 1 To twenty
ã € € ã € € On Error Resume Up coming
ã € € ã € € Form1.Label1.LinkTopic = ¨ <å º å'Œä ¸ »é ¢ ~
ã € € ã € € If Err = 0 Then Exit For
ã € € ã € € DoEvents
ã € € Up coming
ã € € Form1.Label1.LinkMode = 2 'é ‡ ‡ ç € € ã € € DoEvents
ã € € Up coming
ã € € Form1.Label1.LinkTimeout = a hundred 'è ® ¾ ç ½ ® ç ‰ å ¾ ... DDE å ¶ é-'ã €,
ã € € If Err = 0 Then
ã € € ã € € Choose Situation intDDE
ã € € ã € € ã € € ã € € Situation one 'å »º ç« <ç ¨ <å º é ¡¹
ã € € ã € € ã € € ã € € ã € € Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD
ã € € ã € € ã € € ã € € ã € € Form1.Label1.LinkExecute strADDITEM & strCmd & strCOMMA & _
ã € € ã € € ã € € ã € € ã € € ã € € ã € € strTitle & String $ (3,
Office 2007 Key, strCOMMA) & strENDCMD
ã € € ã € € ã € € ã € € Situation 2 'å »º ç« <ç ¨ <å º ç »€ ã € € ã € € ã € € ã € € Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD
ã € € ã € € ã € € ã € € ã € € Form1.Label1.LinkExecute strSHOWGRP & ; strGroup & strRESTORE