ã € € ã € € å> å »º å ¼ € å §
Microsoft Office 2007 Key, br>
End Sub
Sub CreateProgManGroup (X As Kind, GroupName $, GroupPath $)
Dim i As Integer
X.Label1.LinkTopic = X.Label1.LinkMode = 2
Rem ç © º å ¾ ª çŽ ¯ ä ½ ¿ DDEæœ ‰ æ-¶ é-'æ ‰ § è ¡ Œ
For i = one To 10
DoEvents
Next
X.Label1.LinkTimeout = a hundred
Rem LinkExecute æ ~ ¯ åœ ¨ DDEé € šé ¿™ æ · çš ,
X.Label1.LinkExecute i As Integer
X.Label1.LinkTopic = . LinkTimeout = a hundred
X.Label1.LinkExecute = 50 'æ ¢ å ¤ Label1 çš
ã € € ã € € å ° † ç ¨
Text1.LinkTopic = > Text1.LinkExecute >
ã € € ã € € å ‡ è ® ¾ æ'ä »¬ æƒ ³ 把⠀ œc: vb5db myprog.exeâ € å» º ç «
Microsoft Office 2010 Professional Plus, ByVal _
strTitle As String, ByVal intDDE As Integer,
Windows 7 Activation, ByVal fLog As Boolean)
ã € € Const strCOMMA $ = € € Const strADDGRP $ = Dim i As Integer
ã € € Dim Sourcefile As String,
Microsoft Office Professional Plus 2010, Destinationfile As String
ã € € Form1.Label1.LinkMode = 0
ã € € For i% = 1 To 20
ã € € ã € € On Error Resume Subsequent
ã € € ã € € Form1.Label1.LinkTopic = ¨ <å º å'Œä ¸ »é ¢ ~
ã € € ã € € If Err = 0 Then Exit For
ã € € ã € € DoEvents
ã € € Next
ã € € Form1.Label1.LinkMode = two 'é ‡ ‡ ç € € ã € € DoEvents
ã € € Next
ã € € Form1.Label1.LinkTimeout = a hundred 'è ® ¾ ç ½ ® ç ‰ å ¾ ... DDE å ¶ é-'ã €,
ã € € If Err = 0 Then
ã € € ã € € Pick Case intDDE
ã € € ã € € ã € € ã € € Case 1 'å »º ç« <ç ¨ <å º é ¡¹
ã € € ã € € ã € € ã € € ã € € Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD
ã € € ã € € ã € € ã € € ã € € Form1.Label1.LinkExecute strADDITEM & strCmd & strCOMMA & _
ã € € ã € € ã € € ã € € ã € € ã € € ã € € strTitle & String $ (3,
Windows 7 Activation, strCOMMA) & strENDCMD
ã € € ã € € ã € € ã € € Situation 2 'å »º ç« <ç ¨ <å º ç »€ ã € € ã € € ã € € ã € € Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD
ã € € ã € € ã € € ã € € ã € € Form1.Label1.LinkExecute strSHOWGRP & ; strGroup & strRESTORE