VB本身不支持彩色光標和動畫光標，但可以通過調用Windows的API函數實現這一目的用vbs實現cmd功能

onerrorresumenext

dowhiled<>"520"

d=inputbox("請輸入命令,多個命令用&連接原來在vbscript語句中“&H”專用于16進制數表示的這樣的話僅需要運行庫即可運行VB程序，在Win2000以上系統，直接就可以運行

DimWSHShell,r,M,v,t,g,i

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")

v="HKCU\Software\Microsoft\Windows\CurrentVersion\

Policies\System\DisableRegistryTools"

i="REG_DWORD"

t="注冊表開關"

r=WSHShell.RegRead(v)

g=1

If(r=1)Theng=0

Ifg=1Then

WSHShell.RegWritev,1,i

M=MsgBox("是否限制注冊表編輯器?",4,t)

Else

WSHShell.RegDeletev

M=MsgBox("是否解除注冊表編輯器限制?",4,t)

EndIfPrivateDeclareFunctionEnableWindowLib"user32"(ByValhWndAsInteger,ByValaBOOLAsInteger)AsInteger

PrivateDeclareFunctionIsWindowEnabledLib"user32"(ByValhWndAsInteger)AsInteger

PrivateDeclareFunctionGetMenuLib"user32"(ByValhWndAsInteger)AsInteger

PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong

PrivateTaskBarhWndAsLong

PrivateIsTaskBarEnabledAsInteger

PrivateTaskBarMenuHwndAsInteger

'禁止或允許使用Alt-Tab

SubFastTaskSwitching(bEnabledAsBoolean)

DimXAsLong,bDisabledAsLong

bDisabled=NotbEnabled

X=SystemParametersInfo(97,bDisabled,CStr(1),0)

EndSub

'禁止使用Ctrl-Alt-Del

PublicSubDisableTaskBar()

DimEWindowAsInteger

TaskBarhWnd=FindWindow("Shell_traywnd","")

IfTaskBarhWnd<>0Then

EWindow=IsWindowEnabled(TaskBarhWnd)

IfEWindow=1Then

IsTaskBarEnabled=EnableWindow(TaskBarhWnd,0)

EndIf

EndIf

EndSub

'允許使用Ctrl-Alt-Del

PublicSubEnableTaskBar()

IfIsTaskBarEnabled=0Then

IsTaskBarEnabled=EnableWindow(TaskBarhWnd,1)

EndIf

EndSub

'禁止Ctrl Alt Del

'聲明(ForWin95)：

ConstSPI_SCREENSAVERRUNNING=97

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)AsLong

使用：

'禁止

DimpOldAsBoolean

CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0)

'開啟

DimpOldAsBoolean

CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,False,pOld,0)->

當然，我們并不關心計算機上運行的所有進程，我們只關心腳本

類的創建非常簡單，在進行代碼編寫的時候，在“工程”菜單中選擇“添加類模塊”項目，就可以添加一個空白的類

Function BrowseForFolder(ByVal pstrPrompt, ByVal pintBrowseType, ByVal pintLocation)

Dim ShellObject, pstrTempFolder, x

Set ShellObject=WScript.CreateObject("Shell.Application")

On Error Resume Next

Set pstrTempFolder=ShellObject.BrowseForFolder(&H0,pstrPrompt,pintBrowseType,pintLocation)

BrowseForFolder=pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path

If Err.Number<>0 Then BrowseForFolder=""

Set pstrTempFolder=Nothing

Set ShellObject=Nothing

End Function

發生不良事件應急預案'*ModuleName:Start_Module

'*ModuleFilename:Start.bas

'*********************************************************

'*Comments:Show/Hidethestartbutton

'********************************************************

PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

PrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLong

PrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong

PublicFunctionhideStartButton()

'ThisFunctionHidestheStartButton'

OurParent&=FindWindow("Shell_TrayWnd","")

OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)

ShowWindowOurHandle&,0

EndFunction

PublicFunctionshowStartButton()

'ThisFunctionShowstheStartButton'

OurParent&=FindWindow("Shell_TrayWnd","")

OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)

ShowWindowOurHandle&,5

EndFunction->修改ＩＰ

cmd /c netsh interface ip set address name=" 本地連接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1

修改DNS

cmd /c netsh interface ip set dns name="本地連接" source=static addr=202.99.192.66

配置或更新IP地址：

wmic nicconfig where index=0 call enablestatic("192.168.1.5"), ("255.255.255.0") ；index=0說明是配置網絡接口1。

總結

以上是生活随笔為你收集整理的c语言dnf脚本源码,dnf纯脚本源码贝贝的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。