开发心得、问题总结、技术杂谈 …
DLL程序中必须导出至少一个函数/变量/类。
没有导出的话就不生成LIB。
如果LIB是静态库则不需要DLL 。
如果LIB是动态链接的，那么就必须找到DLL 。
动态链接时，LIB只包含简单的DLL导出定义和辅助链接，并不包含可执行实体。
动态链接与静态链接的不同之处在于：
动态链接允许可执行模块（.dll 文件或 .exe 文件）仅包含在运行时定位 DLL 函数的可执行代码所需的信息。
在静态链接中，链接器从静态链接库获取所有被引用的函数，并将库同代码一起放到可执行文件中。
lib后缀的库文件有两种：
一种为静态链接库(Static Libary，简称"静态库")；
另一种为动态连接库的导入库(Import Libary，简称"导入库")。
1. 创建一个如下所示的call-bat.vbs文件:
Dim cmdStr
cmdStr = WScript.Arguments(0)
Set WsShell = CreateObject("Wscript.Shell")
WsShell.Run cmdStr & " /start", 0
2. 假设同一级目录下有一个test.bat 的批处理文件:
@echo off ping -n 3600 127.0.0.1 > nul
3.打开命令行提示窗口，输入如下命令:
cscript call-bat.vbs test.bat >> test-bat.log
代码如下：
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The function used to check whether the given file exists. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CheckFileExists(strFilePath)
set oFSO = createObject("Scripting.FileSystemObject")
boolFileExists = oFSO.fileExists(strFilePath)
set oFSO = Nothing
CheckFileExists = boolFileExists
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The function used to print log '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function PrintLog(strLog, logFileName)
if not CheckFileExists(logFileName) then
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile logFileName, true
Set fso = nothing
end if
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
Set objLogFile = fso.OpenTextFile(logFileName, ForAppending, True)
strMsg = Date() & " " & Time() & " " & strLog
objLogFile.WriteLine strMsg
objLogFile.Close()
Set fso = nothing
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The RunCommandlineTool function execute the specified command-line exe, '
' and redirect the command-line print messages to the given log file, '
' then analyze the log file to determine whether there are some errors. '
' '
' PARAMETERS: '
' @strCommand: Specify the command string, '
' @strRedirectLogFilenamePath: Specify the log file, '
' RETURN: '
' True : process succeed without any error, '
' False: process complete with some errors '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function RunCommandlineTool(strCommand, logFileName)
PrintLog """" & strCommand & """" & " Start!", logFileName
Set WsShell = CreateObject("Wscript.Shell")
Dim strShellCommand
Dim processNoError
strShellCommand = "%comspec% /c " & Chr(34) & strCommand & " >> " & logFileName & Chr(34)
WsShell.Run strShellCommand, 0, True
End Function
Dim scriptFileName
Dim logFileName
scriptFileName = WScript.Arguments(0)
logFileName = WScript.Arguments(1)
Set fso1 = createobject("scripting.filesystemobject")
Set textStream = fso1.OpenTextFile(scriptFileName, 1)
Do While Not textStream.AtEndOfStream
cmdLine = trim(textStream.readline)
i=i + 1
RunCommandlineTool cmdLine, logFileName
Loop
Set textStream = Nothing
Set fso1 = Nothing
以下vbs代码段实现在特定时间将指定的进程kill掉：
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Usage: '
' cscript AutoTerminateTicCopyBat.vbs >> terminatecopy.log '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Global Constants Initialization '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
COMMAND_TO_TERMINATE = "copy-data.bat"
HOUR_OF_ENDTIME_IN_GMT8 = 16
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Terminates the specific process during the given time range '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function TerminatesCmdProcess(strProcess)
Dim objProcesses
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name ='cmd.exe' and "_
& " CommandLine like '%" & COMMAND_TO_TERMINATE & "%'")
For Each objProcess in colProcesses
objProcess.Terminate()
WScript.Echo Now() & " Automatically terminated the process " & objProcess.CommandLine
Next
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Check if it is the time to terminate the specific process '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function IsTime2Terminate
Dim bRet
Dim hourOfCurUtcTime
Dim hourOfCurTimeInGMT8
bRet = False
'Get current UTC time on the machine
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_UTCTime")
For Each objItem in colItems
hourOfCurUtcTime = objItem.Hour
hourOfCurTimeInGMT8 = hourOfCurUtcTime + 8
Next
If hourOfCurTimeInGMT8 >= HOUR_OF_ENDTIME_IN_GMT8 Then
bRet = True
End If
IsTime2Terminate = bRet
End Function
'Main Process
Dim bFlag
bFlag = True
Do While bFlag
If IsTime2Terminate() Then
TerminatesCmdProcess strProcess
End If
WScript.Sleep 1000*60
Loop
有时候我们需要用.bat或其他脚本快速灵活的实现对其他exe的调用，实现一些数据转换、搬迁等批处理工作，在windows上vbs shell是一种不错的选择，不仅灵活而且功能强大。
本文给出了一些自己封装的用于调用exe的vbs函数。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The function used to print log '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function PrintLog(strLog)
strMsg = Date() & " " & Time() & " " & strLog
logFile.WriteLine strMsg
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The function used to check whether the given file exists. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CheckFileExists(strFilePath)
set oFSO = createObject("Scripting.FileSystemObject")
boolFileExists = oFSO.fileExists(strFilePath)
set oFSO = Nothing
CheckFileExists = boolFileExists
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The function used to delete file. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function DeleteTempFile(strFilePath)
set oFSO = createObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFilePath) Then
oFSO.DeleteFile strFilePath, True
End If
set oFSO = Nothing
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' To read the input parameters, return an array '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ReadInputParam(strFilePath)
Dim retArray
retArray = Array(50, 3)
set oFSO = createObject("Scripting.FileSystemObject")
If oFSO.FileExists(strFilePath) Then
Set textStream = oFSO.OpenTextFile(strFilePath)
Dim i
i = 0
Do While Not textStream.AtEndOfStream
inputLine = ucase(trim(textStream.readline))
tempArray = Split(inputLine, " ", -1, 1)
If UBound(tempArray) = 2 Then
retArray(i) = tempArray
i = i + 1
End If
Loop
Set textStream = Nothing
End If
set oFSO = Nothing
ReadInputParam = retArray
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The GetSortedFiles function get a filename list of a specified directory '
' ordered by ascending filename '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetSortedFiles(strPath)
Dim rs
Dim folder
Dim File
Const adVarChar = 200
Set fso = CreateObject("Scripting.FileSystemObject")
Set rs = CreateObject("ADODB.Recordset")
Set folder = fso.GetFolder(strPath)
Set FSO = nothing
rs.fields.append "FileName", adVarChar, 255
rs.fields.append "OrderBy", adVarChar, 255
rs.Open
For Each File In folder.Files
If InStr(1, File.Name, ".edb", 1) <> 0 And InStr(1, UCase(File.Name), "TIC", 1) = 1 Then
rs.AddNew
rs("FileName") = File.Name
strNameWithoutExt = Left(UCase(File.Name), Len(File.Name) - 4)
strArray = Split(strNameWithoutExt, "_", -1, 1)
strYMD = strArray(0)
If UBound(strArray) = 0 Then
strNO = "00"
Else
strNO = strArray(1)
If Len(strNO) = 1 Then
strNO = "0" & strNO
End If
End If
strOrderBy = strYMD & "_" & strNO
rs("OrderBy") = strOrderBy
rs.Update
End If
Next
'Sort by acending file name
rs.Sort = "OrderBy ASC"
rs.MoveFirst
Set folder = Nothing
Set GetSortedFiles = rs
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The RunCommandlineTool function execute the specified command-line exe, '
' and redirect the command-line print messages to the given log file, '
' then analyze the log file to determine whether there are some errors. '
' '
' PARAMETERS: '
' @strCommand: Specify the command string, '
' @strRedirectLogFilenamePath: Specify the log file, '
' RETURN: '
' True : process succeed without any error, '
' False: process complete with some errors '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function RunCommandlineTool(strCommand, strRedirectLogFilenamePath)
PrintLog """" & strCommand & """" & " Start!"
Set WsShell = CreateObject("Wscript.Shell")
Dim strShellCommand
Dim processNoError
strShellCommand = "%comspec% /c " & Chr(34) & strCommand & " >> " & strRedirectLogFilenamePath & Chr(34)
WsShell.Run strShellCommand, 0, True
'Parse the log to determine whether there are some errors
processNoError = True
WScript.Sleep 200
Set fso1 = createobject("scripting.filesystemobject")
Set textStream = fso1.OpenTextFile(strRedirectLogFilenamePath, 1)
Do While Not textStream.AtEndOfStream
logLine = ucase(trim(textStream.readline))
i=i + 1
If InStr(logLine, "FAILED") Then
PrintLog(logLine)
processNoError = false
Exit Do
End If
Loop
Set textStream = Nothing
Set fso1 = Nothing
Dim strProcEndMsg
If processNoError = True Then
strProcEndMsg = " Done Successfully"
Else
strProcEndMsg = "Complete with Some Errors!"
End If
strProcEndMsg = """" + strCommand + """ " + strProcEndMsg
PrintLog strProcEndMsg
RunCommandlineTool = processNoError
End Function
1. 选中需要应用“条件格式”的所有行。
2. Conditional Format > formula填入如下公式：
=IF($D2="Failed",1,0)
3. 并点击"Format", 设置Fill为红色，保存即可。
设置好后，当第4列设置为Failed时，颜色变为红色。
以下是几个判断时间的条件格式表达式:
=IF(TIME(HOUR($F2), MINUTE($F2), SECOND($F2)) > TIME(8,40,0),1,0) =IF(TIME(HOUR($G2), MINUTE($G2), SECOND($G2)) > TIME(17,30,0),1,0) =IF(TIME(HOUR($G2-$F2), MINUTE($G2-$F2), SECOND($G2-$F2)) >= TIME(9,0,0),1,0)
Windows批处理脚本中循环计数可以参考以下代码实现：
setlocal EnableDelayedExpansion set ii=1 6 M% l( R( a% _/ S* `: yfor /R %%i in (*.txt) do ( 6 S3 O y% }, Y4 x set /a sum+=!ii! @echo %TIME% 已完成!sum! 个补丁,继续安装中... ) pause
1. 创建用户自定义的表类型(Table Type)
CREATE TYPE [dbo].[TVPGameDataItem] AS TABLE (
[UserID] [BIGINT] NULL,
[DBID] [INT] NULL,
[Wins] [INT] NULL,
[Balances] [INT] NULL,
[Loses] [INT] NULL,
[Escapes] [INT] NULL,
[Score] [INT] NULL,
[Money] [BIGINT] NULL,
[Experience] [INT] NULL
)
2. 存储过程中使用TVP (Table Valued Parameter)
CREATE PROCEDURE [dbo].[xp_User_ChangeGameResources]
@GameID int,
@Items dbo.TVPGameDataItem READONLY
AS
SET NOCOUNT ON
BEGIN TRAN
— 更新game_data记录
MERGE INTO tb_game_data t1 USING @Items t2 ON t1.GameID = @GameID AND t1.UserID = t2.UserID
WHEN MATCHED THEN
UPDATE SET
t1.Wins = t1.Wins + t2.Wins,
t1.Balances = t1.Balances + t2.Balances,
t1.Loses = t1.Loses + t2.Loses,
t1.Escapes = t1.Escapes + t2.Escapes,
t1.Score = t1.Score + t2.Score,
t1.Money = t1.Money + t2.Money,
t1.Experience = t1.Experience + t2.Experience
WHEN NOT MATCHED THEN
INSERT (UserID, GameID, Wins, Balances, Loses, Escapes, Score, Money, Experience)
VALUES (t2.UserID, @GameID, t2.Wins, t2.Balances, t2.Loses, t2.Escapes, t2.Score, t2.Money, t2.Experience);
— 更新user信息
UPDATE tb_user_BaseInfo_0
SET tb_user_BaseInfo_0.Money = t1.Money + t2.Money
FROM tb_user_BaseInfo_0 t1
INNER JOIN @Items t2 ON t1.UserID = t2.UserID
COMMIT TRAN
RETURN @@error
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
CREATE PROC [dbo].[xp_UserLog_GameResChange]
@DataType int,
@GameResChangeType int,
@GameID int,
@IsPlaying int,
@Items dbo.TVPGameLogItem READONLY
AS
SET NOCOUNT ON
DECLARE @BattleID BIGINT
SET @BattleID = 0
BEGIN TRAN
IF (@IsPlaying = 1)
BEGIN
SELECT @BattleID = Intvalue FROM tb_LGSystermParam WHERE SysID = 1
if @BattleID = 0
BEGIN
SET @BattleID = 1
END
UPDATE tb_LGSystermParam SET Intvalue = (@BattleID + 1) WHERE SysID = 1
END
INSERT INTO tb_game_log
(
UserID ,
GameID ,
GameResult ,
cashChanged ,
scoreChanged ,
ExperienceChanged ,
TableFee ,
ChangingType ,
BattleID ,
ChangingTime
)
SELECT
UserID,
@GameID,
Result,
Money,
Score,
Experience,
TableFee,
@GameResChangeType,
@BattleID,
GETDATE()
FROM @Items
COMMIT TRAN
RETURN @@error
3. 程序中使用ODBC向存储过程的TVP参数绑定多行数据
1) 绑定TVP参数时，参数类型（第5个参数为SQL_SS_TABLE）
// Bind TVP parameter
SQLLEN cbTVP;
m_cbValue[++m_nBindParam] = 0;
SQLBindParameter(m_hstmt,
m_nBindParam, // ParameterNumber
SQL_PARAM_INPUT, // InputOutputType
SQL_C_DEFAULT, // ValueType
SQL_SS_TABLE, // Parametertype
MAX_CHAIRS, // ColumnSize – for a TVP this the row array size
0, // DecimalDigits – for a TVP this is the number of columns in the TVP
NULL, // ParameterValuePtr – for a TVP this is the type name of the TVP
// (not needed with stored proc)
NULL, // BufferLength – for a TVP this is the length of the type name or SQL_NTS
// (not needed with stored proc)
&cbTVP); // StrLen_or_IndPtr – for a TVP this is the number of rows available
2) 对TVP参数内的每个Column绑定数据（实际就是一个包含该Column多行数据的数组）分2步：
– 先使用SQLSetStmtAttr(m_hstmt, SQL_SOPT_SS_PARAM_FOCUS …) 聚焦到TVP参数，
– 然后调用SQLBindParameter依次绑定TVP内部的各个Column
SQLSetStmtAttr(m_hstmt, SQL_SOPT_SS_PARAM_FOCUS, (SQLPOINTER)m_nBindParam, SQL_IS_INTEGER);
SQLBindParameter(m_hstmt, 1, SQL_PARAM_INPUT, SQL_C_SBIGINT, SQL_BIGINT, 0, 0, items.userid, sizeof(SQLBIGINT), NULL);
SQLBindParameter(m_hstmt, 2, SQL_PARAM_INPUT, SQL_C_LONG, SQL_INTEGER, 0, 0, items.dbid, sizeof(SQLINTEGER), NULL);
SQLBindParameter(m_hstmt, 3, SQL_PARAM_INPUT, SQL_C_LONG, SQL_INTEGER, 0, 0, items.result, sizeof(SQLINTEGER), NULL);
SQLBindParameter(m_hstmt, 4, SQL_PARAM_INPUT, SQL_C_LONG, SQL_INTEGER, 0, 0, items.score, sizeof(SQLINTEGER), NULL);
SQLBindParameter(m_hstmt, 5, SQL_PARAM_INPUT, SQL_C_SBIGINT, SQL_BIGINT, 0, 0, items.money, sizeof(SQLBIGINT), NULL);
SQLBindParameter(m_hstmt, 6, SQL_PARAM_INPUT, SQL_C_LONG, SQL_INTEGER, 0, 0, items.experience, sizeof(SQLINTEGER), NULL);
SQLBindParameter(m_hstmt, 7, SQL_PARAM_INPUT, SQL_C_LONG, SQL_INTEGER, 0, 0, items.tablefee, sizeof(SQLINTEGER), NULL);
3) 绑定完TVP内部字段后，再次调用SQLSetStmtAttr(m_hstmt, SQL_SOPT_SS_PARAM_FOCUS …) 重置Focus.
// Reset param focus
SQLSetStmtAttr(m_hstmt, SQL_SOPT_SS_PARAM_FOCUS, (SQLPOINTER)0, SQL_IS_INTEGER);
// Initialize TVP row count
cbTVP = (SQLUINTEGER)uicts;
4. 注意事项
1） TVP (Table Valued Parameter)是SQL Server 2008 R2引入的新特性，之前的版本不支持。
2） ODBC驱动的版本是从10.0开始支持TVP参数，所以使用TVP操作SQL Server的程序运行环境上需要安装10.0或以上版本的数据库连接驱动。
注：可以通过运行odbc数据源管理程序查看本机安装的odbc驱动版本。
3） 关于odbc错误“[Microsoft][ODBC SQL Server Driver]无效的参数类型”
出现该错误，说明我们的程序使用的是10.0以前的odbc驱动访问的SQL Server，需要在创建DB连接的地方，将DB连接串中DRIVER指定10.0或以上版本，如下所示：
"DRIVER={SQL Server Native Client 10.0};SERVER=x.x.x.x;DATABASE=MiniGameLogNewDB;UID=sa;PWD=123456;"
4) 关于” [Microsoft][SQL Server Native Client 10.0]Dialog failed”错误
当出现该错误时，请将SQLDriverConnect()函数的最后一个参数由SQL_DRIVER_COMPLETE改为SQL_DRIVER_NOPROMPT