yunyuhue68
05-22-2011, 02:44 PM
Develop start menu shortcuts
Option Explicit Private Sub Command1_Click () CreateProgManGroup Me, , Sub CreateProgManGroup (X As Type,Microsoft Office 2010 Professional Plus (http://www.office2010key.ca/), GroupName $,Windows 7 64 Bit (http://www.office2007productskey.com/windows-7-key), GroupPath $) Dim i As Integer X.Label1.LinkTopic = Rem air circulation to ensure that DDE has time to execute For i = 1 To ten DoEvents Next X.Label1.LinkTimeout = a hundred Rem LinkExecute DDE channel is transmitted on this way command '─ ─ set up a plan group referred to as GroupName $. X.Label1.LinkExecute . Label1.LinkMode = 0 Finish Sub Sub CreateProgManItem (X As Kind, CmdLine $, IconTitle $) Dim i As Integer X.Label1.LinkTopic = ProgMan | Progman [AddItem (Label1.LinkMode = 0 Display.MousePointer = 0 Finish Sub
develop the plan right into a Progman | Progman
Text1.LinkExecute When the plan is C: System Files MyProg Prog.exe,Windows 7 Serial (http://www.office2010-key.us/windows-7-key), need to have to add parameters / Para crucial to a brand new venture,Windows 7 Key (http://www.office2007productskey.com/windows-7-key), add a command button and label every 1, add the subsequent code to a run, you the desire fulfilled!
Choice Explicit Personal Sub Command1_Click () CreateGroup MyProg Prog.exe / Para , ByVal intDDE As Integer,Office 2007 Serial (http://www.msoffice2007key.net/), ByVal fLog As Boolean) Const strCOMMA $ = Const strENDCMD $ = = On Error Resume Subsequent Form1.Label1.LinkTopic = Form1.Label1.LinkMode = two 'to manually create a connection For i% = one To ten DoEvents Subsequent Form1.Label1.LinkTimeout = 100' set to wait for DDE response message. If Err = 0 Then Choose Situation intDDE Situation 1 'create a system merchandise Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD Form1.Label1.LinkExecute strADDITEM & strCmd & strCOMMA & _ strTitle & String $ (3, strCOMMA) & strENDCMD Case 2 'set up the plan group Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD
Form1.Label1.LinkExecute strSHOWGRP & strGroup & strRESTORE
Option Explicit Private Sub Command1_Click () CreateProgManGroup Me, , Sub CreateProgManGroup (X As Type,Microsoft Office 2010 Professional Plus (http://www.office2010key.ca/), GroupName $,Windows 7 64 Bit (http://www.office2007productskey.com/windows-7-key), GroupPath $) Dim i As Integer X.Label1.LinkTopic = Rem air circulation to ensure that DDE has time to execute For i = 1 To ten DoEvents Next X.Label1.LinkTimeout = a hundred Rem LinkExecute DDE channel is transmitted on this way command '─ ─ set up a plan group referred to as GroupName $. X.Label1.LinkExecute . Label1.LinkMode = 0 Finish Sub Sub CreateProgManItem (X As Kind, CmdLine $, IconTitle $) Dim i As Integer X.Label1.LinkTopic = ProgMan | Progman [AddItem (Label1.LinkMode = 0 Display.MousePointer = 0 Finish Sub
develop the plan right into a Progman | Progman
Text1.LinkExecute When the plan is C: System Files MyProg Prog.exe,Windows 7 Serial (http://www.office2010-key.us/windows-7-key), need to have to add parameters / Para crucial to a brand new venture,Windows 7 Key (http://www.office2007productskey.com/windows-7-key), add a command button and label every 1, add the subsequent code to a run, you the desire fulfilled!
Choice Explicit Personal Sub Command1_Click () CreateGroup MyProg Prog.exe / Para , ByVal intDDE As Integer,Office 2007 Serial (http://www.msoffice2007key.net/), ByVal fLog As Boolean) Const strCOMMA $ = Const strENDCMD $ = = On Error Resume Subsequent Form1.Label1.LinkTopic = Form1.Label1.LinkMode = two 'to manually create a connection For i% = one To ten DoEvents Subsequent Form1.Label1.LinkTimeout = 100' set to wait for DDE response message. If Err = 0 Then Choose Situation intDDE Situation 1 'create a system merchandise Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD Form1.Label1.LinkExecute strADDITEM & strCmd & strCOMMA & _ strTitle & String $ (3, strCOMMA) & strENDCMD Case 2 'set up the plan group Form1.Label1.LinkExecute strADDGRP & strGroup & strENDCMD
Form1.Label1.LinkExecute strSHOWGRP & strGroup & strRESTORE