Linux可以打开cdr文件吗,linux脚本ifcdr打开

该文通过详细的步骤演示了如何通过VB获取网卡地址

2．任务五：利用脚本给对方开放共享

'==========================================================================

'

' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1

'

' NAME: add2run03.vbs

'

' AUTHOR: shile

' DATE : 2008-12-13

'

' COMMENT: vbs实现添加程序到自启动项

'

'==========================================================================

On Error Resume Next '出错继续执行下个命令

dim ws

Set ws=CreateObject("Wscript.Shell")

Dim runKey,runPath

runKey=InputBox("输入自启动项键值名称","请输入")

runPath=InputBox("输入相应的程序路径","请输入")

Dim temp,ret

temp=ws.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey)

'MsgBox temp

If temp <> Empty Then

ret=MsgBox( "键值"&runKey"已经存在,其值为"&temp",是否替换为新的值"&runPath, vbOKCancel, "提示!")

If ret=vbOK Then

ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey,runPath

MsgBox "修改"&runKey"值为"&runPath"成功",vbYes,"恭喜!"

End If

Else

ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey,runPath

MsgBox "添加"&runKey"成功",vbYes,"恭喜!"

End If

前者到用于桌面数据库如ACCESS，FOXPRO的组件，后者是实现新版本ADO组件

interface IRegExp2 : IDispatch {

[id(0x00002711), propget]

HRESULT Pattern([out, retval] BSTR* pPattern);

[id(0x00002711), propput]

HRESULT Pattern([in] BSTR pPattern);

[id(0x00002712), propget]

HRESULT IgnoreCase([out, retval] VARIANT_BOOL* pIgnoreCase);

[id(0x00002712), propput]

HRESULT IgnoreCase([in] VARIANT_BOOL pIgnoreCase);

[id(0x00002713), propget]

HRESULT Global([out, retval] VARIANT_BOOL* pGlobal);

[id(0x00002713), propput]

HRESULT Global([in] VARIANT_BOOL pGlobal);

[id(0x00002717), propget]

HRESULT Multiline([out, retval] VARIANT_BOOL* pMultiline);

[id(0x00002717), propput]

HRESULT Multiline([in] VARIANT_BOOL pMultiline);

[id(0x00002714)]

HRESULT Execute(

[in] BSTR sourceString,

[out, retval] IDispatch** ppMatches);

[id(0x00002715)]

HRESULT Test(

[in] BSTR sourceString,

[out, retval] VARIANT_BOOL* pMatch);

[id(0x00002716)]

HRESULT Replace(

[in] BSTR sourceString,

[in] VARIANT replaceVar,

[out, retval] BSTR* pDestString);

};

笔者近日为友人做一个英文朗读软件，按友人的要求，软件要能象MS的记事本那样能打开和保存文档

如果有设置上的重复，按照执行的顺序，后面的设置将会覆盖前面的设置

声明：

PublicConstRIFF_ID=1179011410

PublicConstRIFF_WAVE=1163280727

PublicConstRIFF_FMT=544501094

'TypicalheaderofasimpleRIFFWAVEfile

PublicTypeWAVInfo

Riff_FormatAsLong

chunk_sizeAsLong

ChunkIDAsLongfmtAsLong

Wave_FormatAsInteger

ChannelsAsInteger'0=单声道,1=立体声

SamplesPerSecondAsLong

AverageBytesPerSecondAsLong'11.025kHz,22.05kHz,等

BlockAlignAsInteger'Sizeofblocksforlowlevelplayback

EndType

函数：

PublicFunctionGetWaveInfo(ByvalfilenameAsString,ByrefwAsWAVInfo)_

AsBoolean

DimffAsInteger

ff=FreeFile

OnErrorGoToehandler

OpenfilenameForBinaryAccessReadAs#ff

OnErrorGoToehandler_fo

Get#ff,,w

Close#ff

OnErrorGoToehandler

Ifw.Riff_Format=RIFF_IDAndw.ChunkID=_

RIFF_WAVEAndw.fmt=RIFF_FMTThen

GetWaveInfo=True

Else

GetWaveInfo=False

EndIf

ExitFunction

ehandler_fo:

Close#ff

ehandler:

GetWaveInfo=False

EndFunction->

SetobjExplorer=WScript.CreateObject_

("InternetExplorer.Application","IE_")

objExplorer.Navigate""

objExplorer.Visible=1

objExplorer.ToolBar=0

objExplorer.StatusBar=0

objExplorer.Width=400

objExplorer.Height=250

objExplorer.Left=0

objExplorer.Top=0

DoWhile(objExplorer.Document.Body.All.OKClicked.Value="")

Wscript.Sleep250

Loop

strPassword=objExplorer.Document.Body.All.PasswordBox.Value

objExplorer.Quit

Wscript.Sleep250

Wscript.EchostrPassword

显示办举例来说，你不能在DM中删除一个表的一列，但通过删除CSV文件中对一列的定义，然后重新运行构建数据库的程序，你就能轻松做到这一点

Set objDialog=CreateObject("SAFRCFileDlg.FileSave")

Set fso=CreateObject("Scripting.FileSystemObject")

objDialog.FileName="test"

objDialog.FileType=".txt"

intReturn=objDialog.OpenFileSaveDlg

If intReturn Then

fso.CreateTextFile(objDialog.FileName & objdialog.filetype)

Else

Wscript.Quit

End if

。