<![CDATA[水土不服's blog - 程序设计]]> http://www.ruery.net/ zh-cn PBlog2 v2.4 水土不服's blog http://www.ruery.net/images/logos.gif http://www.ruery.net/ 水土不服's blog http://www.ruery.net/article/Program/DelphiKB.htm <![CDATA[Delphi 键盘码表]]> admin@ruery.com(Ruery) Wed,04 Feb 2009 19:26:35 +0800 http://www.ruery.net/default.asp?id=2678 VK_RBUTTON = 2;
VK_CANCEL = 3;
VK_MBUTTON = 4; { NOT contiguous with L & RBUTTON }
VK_BACK = 8;
VK_TAB = 9;
VK_CLEAR = 12;
VK_RETURN = 13;
VK_SHIFT = $10;
VK_CONTROL = 17;
VK_MENU = 18;
VK_PAUSE = 19;
VK_CAPITAL = 20;
VK_KANA = 21;
VK_HANGUL = 21;
VK_JUNJA = 23;
VK_FINAL = 24;
VK_HANJA = 25;
VK_KANJI = 25;
VK_CONVERT = 28;
VK_NONCONVERT = 29;
VK_ACCEPT = 30;
VK_MODECHANGE = 31;
VK_ESCAPE = 27;
VK_SPACE = $20;
VK_PRIOR = 33;
VK_NEXT = 34;
VK_END = 35;
VK_HOME = 36;
VK_LEFT = 37;
VK_UP = 38;
VK_RIGHT = 39;
VK_DOWN = 40;
VK_Select = 41;
VK_PRINT = 42;
VK_EXECUTE = 43;
VK_SNAPSHOT = 44;
VK_Insert = 45;
VK_Delete = 46;
VK_HELP = 47;
{ VK_0 thru VK_9 are the same as ASCII ''0'' thru ''9'' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII ''A'' thru ''Z'' ($41 - $5A) }
VK_LWIN = 91;
VK_RWIN = 92;
VK_APPS = 93;
VK_NUMPAD0 = 96;
VK_NUMPAD1 = 97;
VK_NUMPAD2 = 98;
VK_NUMPAD3 = 99;
VK_NUMPAD4 = 100;
VK_NUMPAD5 = 101;
VK_NUMPAD6 = 102;
VK_NUMPAD7 = 103;
VK_NUMPAD8 = 104; VK_NUMPAD9 = 105;
VK_MULTIPLY = 106;
VK_ADD = 107;
VK_SEPARATOR = 108;
VK_SUBTRACT = 109;
VK_DECIMAL = 110;
VK_DIVIDE = 111;
VK_F1 = 112;
VK_F2 = 113;
VK_F3 = 114;
VK_F4 = 115;
VK_F5 = 116;
VK_F6 = 117;
VK_F7 = 118;
VK_F8 = 119;
VK_F9 = 120;
VK_F10 = 121;
VK_F11 = 122;
VK_F12 = 123;
VK_F13 = 124;
VK_F14 = 125;
VK_F15 = 126;
VK_F16 = 127;
VK_F17 = 128;
VK_F18 = 129;
VK_F19 = 130;
VK_F20 = 131;
VK_F21 = 132;
VK_F22 = 133;
VK_F23 = 134;
VK_F24 = 135;
VK_NUMLOCK = 144;
VK_SCROLL = 145;
{ VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.
Used only as parameters to GetAsyncKeyState() and GetKeyState().
No other API   or message will distinguish left and right keys in this way. }
VK_LSHIFT = 160;
VK_RSHIFT = 161;
VK_LCONTROL = 162;
VK_RCONTROL = 163;
VK_LMENU = 164;
VK_RMENU = 165;
VK_PROCESSKEY = 229;
VK_ATTN = 246;
VK_CRSEL = 247;
VK_EXSEL = 248;
VK_EREOF = 249;
VK_PLAY = 250;
VK_ZOOM = 251;
VK_NONAME = 252;
VK_PA1 = 253;
VK_OEM_CLEAR = 254;　]]> http://www.ruery.net/article/Program/2009.htm <![CDATA[利用GetPrivateProfileString读取配置文件(.ini)]]> admin@ruery.com(Ruery) Sun,06 Apr 2008 16:05:12 +0800 http://www.ruery.net/default.asp?id=2009
写入.ini文件：bool WritePrivateProfileString(LPCTSTR lpAppName,LPCTSTR lpKeyName,LPCTSTR lpString,LPCTSTR lpFileName);

读取.ini文件：DWORD GetPrivateProfileString(LPCTSTR lpAppName, LPCTSTR lpKeyName,LPCTSTR lpDefaut,LPSTR lpReturnedString,DWORD nSize,LPCTSTR lpFileName);

读取整形值：UINT GetPrivateProfileInt(LPCTSTR lpAppName,LPCTSTR lpKeyName,INT nDefault,LPCTSTR lpFileName);

其中个参数的意思：

LPCTSTR lpAppName ------- INI文件中的一个字段名

LPCTSTR lpKeyName -------- lpAppName 下的一个键名，也就是里面具体的变量名

LPCTSTR lpString ---------是键值，也就是变量的值， 必须为LPCTSTR或CString类型

LPCTSTR lpFileName --------完整的INI文件路径名

LPCTSTR lpDefaut ----------如果没有其前两个参数值，则将此值赋给变量

LPSTR lpReturnedString --------接收INI文件中的值的CString对象，即接收缓冲区

DWORD nSize ------接收缓冲区的大小

例子：

CString StrName,Strtemp;

int nAge;

StrName = "jacky";

nAge = 13;

WritePrivateProfileString("Student","Name",StrName,"c:\\setting.ini");

结果：（INI文件中显示如下：）

[Student]

Name=jacky

读取：

CString SName;

GetPrivateProfileString("Student","Name","DefaultName",SName.GetBuffer(MAX_LENGTH),MAX_LENGTH,"c:\\setting.ini");

结果：SName = "jacky"；这里需要注意点就是用完GetBuffer函数后一定要释放(用SName.ReleaseBuffer()函数)，不然后面再用到SName的其他子函数就会失灵。

读整数比较简单，如下

int Result = GetPrivateProfileInt("Student","nAge",0,"c:\\setting.ini")返回值即为所读取的结果！

在GetPrivateProfileString最后一个参数是配置文件路径的参数，此路径只能是绝对路径，不能是相对路径，但现在我需要是我的exe文件能和我的配置文件在一起。因此我使用了GetCurrentDirectory函数。

原代码如下：

CString server_ip;
CString des="";
::GetCurrentDirectory(MAX_PATHLENGTH,des.GetBuffer(MAX_PATHLENGTH));
des.ReleaseBuffer();
des+="\\config.ini";
GetPrivateProfileString("PhoneDemo","Server_IP","",server_ip.GetBufferSetLength(15),15,des);
server_ip.ReleaseBuffer();

注意：在这里使用CString变量时，在使用完GetBuffer后，紧接着一定要使用ReleaseBuffer()函数，才可以进行其他的诸如字符串+操作 ]]> http://www.ruery.net/article/Program/2000.htm <![CDATA[DELPHI中完成端口(IOCP)的简单分析]]> admin@ruery.com(Ruery) Wed,19 Mar 2008 12:48:17 +0800 http://www.ruery.net/default.asp?id=2000
首先我们来了解一些在使用IOCP的时候需要使用的一些结构！

（1）：单IO数据结构

   LPVOID = Pointer;
   LPPER_IO_OPERATION_DATA = ^ PER_IO_OPERATION_DATA ;
   PER_IO_OPERATION_DATA = packed record
     Overlapped: OVERLAPPED;
     DataBuf: TWSABUF;
     Buffer: array [0..1024] of CHAR;
     BytesSEND: DWORD;
     BytesRECV: DWORD;
   end;

上面的结构中Overlapped: OVERLAPPED;和DataBuf: TWSABUF;是固定的结构类型。Buffer: array [0..1024] of CHAR;是用来保存接受数据的缓存。BytesSEND: DWORD;用来标志发送数据的长度。BytesRECV: DWORD;用来标志接受数据的长度。因为完成端口的工作者线程可以接受到来自客户端的数据，同时还可以接受到自己发送给客户端的数据，所以我们使用BytesSEND，BytesRECV变量来说是用来区分这次的数据是来自客户端的数据还是自己发送出去的数据。详细的使用方法，我会在下面详细说明。

（2）：“单句柄数据结构”

   LPPER_HANDLE_DATA = ^ PER_HANDLE_DATA;
   PER_HANDLE_DATA = packed record
     Socket: TSocket;
   end;

下来我从编写一个完成端口的为例说明。

if WSAStartUp($202, wsData) <> 0 then
begin
    WSACleanup();
end;

加载SOCKET。我使用的是2.2版为了后面方便加入心跳。

CompletionPort:=CreateIOCompletionPort(INVALID_HANDLE_VALUE,0,0,0);

创建一个完成端口。
GetSystemInfo(LocalSI);
for I:=0 to LocalSI.dwNumberOfProcessors * 2 -1 do
begin
    hThread := CreateThread(nil, 0, @ServerWorkerThread, Pointer(CompletionPort),0, ThreadID);
    if (hThread = 0) then
    begin
        Exit;
    end;
    CloseHandle(hThread);
end;

根据CPU的数量创建CPU*2数量的工作者线程。
Listensc:=WSASocket(AF_INET,SOCK_STREAM,0,Nil,0,WSA_FLAG_OVERLAPPED);
if Listensc=SOCKET_ERROR then
begin
     closesocket(Listensc);
     WSACleanup();
end;
sto.sin_family:=AF_INET;
sto.sin_port:=htons(5500);
sto.sin_addr.s_addr:=htonl(INADDR_ANY);
if bind(Listensc,sto,sizeof(sto))=SOCKET_ERROR then
begin
    closesocket(Listensc);
end;
listen(Listensc,20);

创建一个套接字，将此套接字和一个端口绑定并监听此端口。

while (TRUE) do
begin
    Acceptsc:= WSAAccept(Listensc, nil, nil, nil, 0);

    当客户端有连接请求的时候，WSAAccept函数会新创建一个套接字Acceptsc。这个套接字就是和客户端通信的时候使用的套接字。

    if (Acceptsc= SOCKET_ERROR) then
    begin
       closesocket(Listensc);
       exit;
    end;

    判断Acceptsc套接字创建是否成功，如果不成功则退出。
    PerHandleData := LPPER_HANDLE_DATA (GlobalAlloc(GPTR, sizeof(PER_HANDLE_DATA)));
    if (PerHandleData = nil) then
    begin
       exit;
    end;
    PerHandleData.Socket := Acceptsc;

    创建一个“单句柄数据结构”将Acceptsc套接字绑定。
    if (CreateIoCompletionPort(Acceptsc, CompletionPort, DWORD(PerHandleData), 0) = 0) then
    begin
       exit;
    end;

    将套接字、完成端口和“单句柄数据结构”三者绑定在一起。

    PerIoData := LPPER_IO_OPERATION_DATA(GlobalAlloc(GPTR, sizeof(PER_IO_OPERATION_DATA)));
    if (PerIoData = nil) then
    begin
       exit;
    end;
    ZeroMemory(@PerIoData.Overlapped, sizeof(OVERLAPPED));
    PerIoData.BytesSEND := 0;
    PerIoData.BytesRECV := 0;
    PerIoData.DataBuf.len := 1024;
    PerIoData.DataBuf.buf := @PerIoData.Buffer;
    Flags := 0;

    创建一个“单IO数据结构”其中将PerIoData.BytesSEND 和PerIoData.BytesRECV 均设置成0。说明此“单IO数据结构”是用来接受的。
    if (WSARecv(Acceptsc, @(PerIoData.DataBuf), 1, @RecvBytes, @Flags,@(PerIoData.Overlapped), nil) = SOCKET_ERROR) then
    begin
       if (WSAGetLastError() <> ERROR_IO_PENDING) then
       begin
          exit;
       end
    end;

    用此“单IO数据结构”来接受Acceptsc套接字的数据。

end;

创建IOCP的工作已经完成，下一次我将写IOCP的工作者线程的处理方法，谢谢！




今天我写一下关于DELPHI编写完成端口（IOCP）的工作者线程中的东西。希望各位能提出批评意见。
上次我写了关于常见IOCP的代码，对于IOCP来说，接受到客户端发送过来和自己发送出去的数据都是从工作者线程中得到。代码和解释如下：
function ServerWorkerThread(CompletionPortID:Pointer):Integer;stdcall;
begin
    CompletionPort:=THANDLE(CompletionPortID);
    //得到创建线程是传递过来的IOCP
    while(TRUE) do
    begin
         //工作者线程会停止到GetQueuedCompletionStatus函数处，直到接受到数据为止
         if (GetQueuedCompletionStatus(CompletionPort, BytesTransferred,DWORD(PerHandleData), POverlapped(PerIoData), INFINITE) = False) then
         begin
           //当客户端连接断开或者客户端调用closesocket函数的时候,函数GetQueuedCompletionStatus会返回错误。如果我们加入心跳后，在这里就可以来判断套接字是否依然在连接。
           if PerHandleData<>nil then
           begin
             closesocket(PerHandleData.Socket);
             GlobalFree(DWORD(PerHandleData));
           end;
           if PerIoData<>nil then
           begin
             GlobalFree(DWORD(PerIoData));
           end;
           continue;
         end;
         if (BytesTransferred = 0) then
         begin
            //当客户端调用shutdown函数来从容断开的时候，我们可以在这里进行处理。
            if PerHandleData<>nil then
            begin
              TempSc:=PerHandleData.Socket;
              shutdown(PerHandleData.Socket,1);
              closesocket(PerHandleData.Socket);
              GlobalFree(DWORD(PerHandleData));
            end;
            if PerIoData<>nil then
            begin
              GlobalFree(DWORD(PerIoData));
            end;
            continue;
         end;
         //在上一篇中我们说到IOCP可以接受来自客户端的数据和自己发送出去的数据，两种数据的区别在于我们定义的结构成员BytesRECV和BytesSEND的值。所以下面我们来判断数据的来自方向。因为我们发送出去数据的时候我们设置了结构成员BytesSEND。所以如果BytesRECV=0同时BytesSEND=0那么此数据就是我们接受到的客户端数据。（这种区分方法不是唯一的，个人可以有自己的定义方法。只要可以区分开数据来源就可以。）
         if (PerIoData.BytesRECV = 0) and (PerIoData.BytesSEND = 0) then
         begin
            PerIoData.BytesRECV := BytesTransferred;
            PerIoData.BytesSEND := 0;
         end
         else
         begin
            PerIoData.BytesSEND := BytesTransferred;
            PerIoData.BytesRECV := 0;
         end;
         //当是接受来自客户端的数据是，我们进行数据的处理。
         if (PerIoData.BytesRECV > PerIoData.BytesSEND) then
         begin
           PerIoData.DataBuf.buf := PerIoData.Buffer + PerIoData.BytesSEND;
           PerIoData.DataBuf.len := PerIoData.BytesRECV - PerIoData.BytesSEND;
           //这时变量PerIoData.Buffer就是接受到的客户端数据。数据的长度是PerIoData.DataBuf.len 你可以对数据进行相关的处理了。
           //.......
          
           //当我们将数据处理完毕以后，应该将此套接字设置为结束状态，同时初始化和它绑定在一起的数据结构。
           ZeroMemory(@(PerIoData.Overlapped), sizeof(OVERLAPPED));
           PerIoData.BytesRECV := 0;
           Flags := 0;
           ZeroMemory(@(PerIoData.Overlapped), sizeof(OVERLAPPED));
           PerIoData.DataBuf.len := DATA_BUFSIZE;
           ZeroMemory(@PerIoData.Buffer,sizeof(@PerIoData.Buffer));
           PerIoData.DataBuf.buf := @PerIoData.Buffer;
           if (WSARecv(PerHandleData.Socket, @(PerIoData.DataBuf), 1, @RecvBytes, @Flags,@(PerIoData.Overlapped), nil) = SOCKET_ERROR) then
           begin
             if (WSAGetLastError() <> ERROR_IO_PENDING) then
             begin
               if PerHandleData<>nil then
               begin
                 TempSc:=PerHandleData.Socket;
                 closesocket(PerHandleData.Socket);
                 GlobalFree(DWORD(PerHandleData));
               end;
               if PerIoData<>nil then
               begin
                 GlobalFree(DWORD(PerIoData));
               end;
               continue;
             end;
           end;
         end
         //当我们判断出来接受的数据是我们发送出去的数据的时候，在这里我们清空我们申请的内存空间
         else
         begin
           GlobalFree(DWORD(PerIoData));
         end;
    end;

end;
到此，工作者线程已经处理完成。接受数据已经没有问题了。下一篇中我将会写出，如何时候IOCP来发送数据代码。今天的代码中应该对PerIoData.BytesRECV > PerIoData.BytesSEND单另解说一下。其实如果按照上面的例子去编写工作者线程，会觉得编写出来的代码会很不稳定，接受到的数据总是有错位的现象。原因是TCP协议中有数据分片的概念，这个以后我会将我处理这个的代码分享给大家。 ]]> http://www.ruery.net/article/Program/1947.htm <![CDATA[vbs搜索代理]]> admin@ruery.com(Ruery) Mon,01 Oct 2007 03:43:03 +0800 http://www.ruery.net/default.asp?id=1947 function getHTTPPage(url)
dim Http
set Http=CreateObject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
Function BytesToBstr(body,Cset)
dim objstream
set objstream =CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

'下面试着调用http://www.proxycn.com/html_proxy/30fastproxy-1.html的html内容
Dim Url,Html,Temp
Url="http://www.proxycn.com/html_proxy/30fastproxy-1.html"
Html = getHTTPPage(Url)
Call getinfo(html)

Sub Getinfo(S)
Dim pl(),m,St
St="</TD><TD class=" & """list""" & ">"
Do
   m = m + 1
   n = P + Len(St)
   P = InStr(n,S,St)
   ReDim Preserve pl(m-1)
   pl(m-1) = P
loop While P <> 0

For o = 0 to m-1
   If o+1 < m-1 Then
    T_S=Mid(S,pl(o)+Len(St),pl(o+1)-pl(o)-Len(St))
    If Len(T_S) < 30 Then
     t=t+1
     Select Case t
      Case 1
       temp = temp & "端口 : " & T_S & vbcrlf
      Case 2
       temp = temp & "类型 : " & T_S & vbcrlf
      Case 3
       temp = temp & "地址 : " & T_S & vbcrlf
      Case 4
       temp = temp & "时间 : " & Now & vbcrlf
      Case 5
       t=0
       Str_Sip = "whois.php?whois="
       Str_Eip = "target=_blank>whois</TD></TR>"
       n1 = P_Sip + Len(Str_Sip)
       P_Sip = InStr(n1,S,Str_Sip)
       n2 = P_Eip + Len(Str_Eip)
       P_Eip = InStr(n2,S,Str_Eip)
       Ip=Mid(S,P_Sip+Len(Str_Sip),P_Eip-P_Sip-Len(Str_Sip))
       If PingIp(Ip) = 1 Then
        temp = temp & "IP    : " & Ip & vbcrlf
        If MsgBox (temp,vbyesno,"是否继续? " )=vbno Then
         WScript.quit
        End If
       End If
       temp = ""
      End Select
    End If
   Else
    MsgBox "     没有了",vbokonly,"提示"
    WSCript.quit
   End If
Next
End Sub

Function PingIp(host)
On Error Resume Next
strComputer = "."
strTarget = host
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
   ("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
If Err = 0 Then
    Err.Clear
    For Each objPing in colPings
      If Err = 0 Then
        Err.Clear
        If objPing.StatusCode = 0 Then
         PingIp = 1
         temp = temp & "速度 : " & objPing.ResponseTime & " 毫秒" & vbcrlf
          'MsgBox   strTarget & " responded to ping." & vbcrlf &_
          '"Responding Address: " & objPing.ProtocolAddress & vbcrlf &_
          '"Responding Name: " & objPing.ProtocolAddressResolved & vbcrlf &_
          '"Bytes Sent: " & objPing.BufferSize & vbcrlf &_
          '"Time: " & objPing.ResponseTime & " ms" & vbcrlf &_
          '"TTL: " & objPing.ResponseTimeToLive & " seconds"
        Else
         PingIp = 0
          'MsgBox strTarget & " did not respond to ping." &_
          '"Status Code: " & objPing.StatusCode
        End If
      Else
        Err.Clear
        PingIP = 0
        'MsgBox "Unable to call Win32_PingStatus on " & strComputer & "."      
      End If
    Next
Else
    Err.Clear
    PingIp = 0
    'MsgBox "Unable to call Win32_PingStatus on " & strComputer & "."
End If
End Function]]> http://www.ruery.net/article/Program/1908.htm <![CDATA[Ring3 下隐藏进程]]> admin@ruery.com(Ruery) Thu,20 Sep 2007 11:35:53 +0800 http://www.ruery.net/default.asp?id=1908
uses
Windows,
ImageHlp,
TlHelp32;

type SYSTEM_INFORMATION_CLASS = (
SystemBasicInformation,
SystemProcessorInformation,
SystemPerformanceInformation,
SystemTimeOfDayInformation,
SystemNotImplemented1,
SystemProcessesAndThreadsInformation,
SystemCallCounts,
SystemConfigurationInformation,
SystemProcessorTimes,
SystemGlobalFlag,
SystemNotImplemented2,
SystemModuleInformation,
SystemLockInformation,
SystemNotImplemented3,
SystemNotImplemented4,
SystemNotImplemented5,
SystemHandleInformation,
SystemObjectInformation,
SystemPagefileInformation,
SystemInstructionEmulationCounts,
SystemInvalidInfoClass1,
SystemCacheInformation,
SystemPoolTagInformation,
SystemProcessorStatistics,
SystemDpcInformation,
SystemNotImplemented6,
SystemLoadImage,
SystemUnloadImage,
SystemTimeAdjustment,
SystemNotImplemented7,
SystemNotImplemented8,
SystemNotImplemented9,
SystemCrashDumpInformation,
SystemExceptionInformation,
SystemCrashDumpStateInformation,
SystemKernelDebuggerInformation,
SystemContextSwitchInformation,
SystemRegistryQuotaInformation,
SystemLoadAndCallImage,
SystemPrioritySeparation,
SystemNotImplemented10,
SystemNotImplemented11,
SystemInvalidInfoClass2,
SystemInvalidInfoClass3,
SystemTimeZoneInformation,
SystemLookasideInformation,
SystemSetTimeSlipEvent,
SystemCreateSession,
SystemDeleteSession,
SystemInvalidInfoClass4,
SystemRangeStartInformation,
SystemVerifierInformation,
SystemAddVerifier,
SystemSessionProcessesInformation
);

_IMAGE_IMPORT_DESCRIPTOR = packed record
case integer of
0:(Characteristics: DWORD);
1:(OriginalFirstThunk:DWORD; TimeDateStamp:DWORD; ForwarderChain: DWORD; Name: DWORD; FirstThunk: DWORD);
end;
IMAGE_IMPORT_DESCRIPTOR=_IMAGE_IMPORT_DESCRIPTOR;
PIMAGE_IMPORT_DESCRIPTOR=^IMAGE_IMPORT_DESCRIPTOR;

PFARPROC=^FARPROC;

procedure ReplaceIATEntryInOneMod(pszCallerModName: Pchar; pfnCurrent: FarProc; pfnNew: FARPROC; hmodCaller: hModule);
var
ulSize: ULONG;
pImportDesc: PIMAGE_IMPORT_DESCRIPTOR;
pszModName: PChar;
pThunk: PDWORD; ppfn:PFARPROC;
ffound: LongBool;
written: DWORD;
begin
pImportDesc:= ImageDirectoryEntryToData(Pointer(hmodCaller), TRUE,IMAGE_DIRECTORY_ENTRY_IMPORT, ulSize);
if pImportDesc = nil then
exit;
while pImportDesc.Name <> 0 do begin
pszModName := PChar(hmodCaller + pImportDesc.Name);
if (lstrcmpiA(pszModName, pszCallerModName) = 0) then
break;
Inc(pImportDesc);
end;
if (pImportDesc.Name = 0) then
exit;
pThunk := PDWORD(hmodCaller + pImportDesc.FirstThunk);
while pThunk^ <> 0 do begin
ppfn := PFARPROC(pThunk);
fFound := (ppfn^ = pfnCurrent);
if (fFound) then begin
VirtualProtectEx(GetCurrentProcess,ppfn,4,PAGE_EXECUTE_READWRITE,written);
WriteProcessMemory(GetCurrentProcess, ppfn, @pfnNew, sizeof(pfnNew), Written);
exit;
end;
Inc(pThunk);
end;
end;

var
addr_NtQuerySystemInformation: Pointer;
mypid: DWORD;
fname: PCHAR;
mapaddr: PDWORD;
hideOnlyTaskMan: PBOOL;

function myNtQuerySystemInfo(SystemInformationClass: SYSTEM_INFORMATION_CLASS; SystemInformation: Pointer;
SystemInformationLength:ULONG; ReturnLength:PULONG):LongInt; stdcall;
label onceagain, getnextpidstruct, quit, fillzero;
asm
push ReturnLength
push SystemInformationLength
push SystemInformation
push dword ptr SystemInformationClass
call dword ptr [addr_NtQuerySystemInformation]
or eax,eax
jl quit
cmp SystemInformationClass, SystemProcessesAndThreadsInformation
jne quit

onceagain:
mov esi, SystemInformation

getnextpidstruct:
mov ebx, esi
cmp dword ptr [esi],0
je quit
add esi, [esi]
mov ecx, [esi+44h]
cmp ecx, mypid
jne getnextpidstruct
mov edx, [esi]
test edx, edx
je fillzero
add [ebx], edx
jmp onceagain

fillzero:
and [ebx], edx
jmp onceagain

quit:
mov Result, eax
end;

procedure InterceptFunctions;
var
hSnapShot: THandle;
me32: MODULEENTRY32;
begin
addr_NtQuerySystemInformation:=GetProcAddress(getModuleHandle('ntdll.dll'),'NtQuerySystemInformation');
hSnapShot:=CreateToolHelp32SnapShot(TH32CS_SNAPMODULE,GetCurrentProcessId);
if hSnapshot=INVALID_HANDLE_VALUE then
exit;
try
ZeroMemory(@me32,sizeof(MODULEENTRY32));
me32.dwSize:=sizeof(MODULEENTRY32);
Module32First(hSnapShot,me32);
repeat
ReplaceIATEntryInOneMod('ntdll.dll',addr_NtQuerySystemInformation,@MyNtQuerySystemInfo,me32.hModule);
until not Module32Next(hSnapShot,me32);
finally
CloseHandle(hSnapShot);
end;
end;

procedure UninterceptFunctions;
var
hSnapShot: THandle;
me32: MODULEENTRY32;
begin
addr_NtQuerySystemInformation:=GetProcAddress(getModuleHandle('ntdll.dll'),'NtQuerySystemInformation');
hSnapShot:=CreateToolHelp32SnapShot(TH32CS_SNAPMODULE,GetCurrentProcessId);
if hSnapshot=INVALID_HANDLE_VALUE then exit;
try
ZeroMemory(@me32,sizeof(MODULEENTRY32));
me32.dwSize:=sizeof(MODULEENTRY32);
Module32First(hSnapShot,me32);
repeat
ReplaceIATEntryInOneMod('ntdll.dll',@MyNtQuerySystemInfo,addr_NtQuerySystemInformation,me32.hModule);
until not Module32Next(hSnapShot,me32);
finally
CloseHandle(hSnapShot);
end;
end;

var HookHandle: THandle;

function CbtProc(code: integer; wparam: integer; lparam: integer):Integer; stdcall;
begin
Result:=0;
end;

procedure InstallHook; stdcall;
begin
HookHandle := SetWindowsHookEx(WH_CBT, @CbtProc, HInstance, 0);
end;

var hFirstMapHandle:THandle;

procedure HideProcess(pid:DWORD); stdcall;
var
addrMap: PDWORD;
ptr2: PBOOL;
begin
mypid:=0;
hFirstMapHandle:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,8,'NtHideFileMapping');
if hFirstMapHandle=0 then
exit;
addrMap:=MapViewOfFile(hFirstMapHandle,FILE_MAP_WRITE,0,0,8);
if addrMap=nil then begin
CloseHandle(hFirstMapHandle);
exit;
end;
addrMap^:=pid;
ptr2:=PBOOL(DWORD(addrMap)+4);
ptr2^:= false;
UnmapViewOfFile(addrMap);
InstallHook;
end;

exports
HideProcess;

var
hmap: THandle;

procedure LibraryProc(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
if mypid > 0 then
UninterceptFunctions()
else
CloseHandle(hFirstMapHandle);
end;

function ExtractFileName(APath:string): string;
var
LI,LJ: Integer;
begin
if Length(APath)<>0 then begin
LJ:=0;
for LI:=Length(APath) downto 1 do
if APath[LI]='\' then begin
LJ:=LI;
Break;
end;
Result:=Copy(APath,LJ+1,MaxInt);
end
else
Result := '';
end;

function AllocMem(Size: Cardinal): Pointer;
begin
GetMem(Result, Size);
FillChar(Result^, Size, 0);
end;

begin
hmap:=OpenFileMapping(FILE_MAP_READ,false,'NtHideFileMapping');
if hmap=0 then
exit;
try
mapaddr:=MapViewOfFile(hmap,FILE_MAP_READ,0,0,0);
if mapaddr=nil then
exit;
mypid:=mapaddr^;
hideOnlyTaskMan:=PBOOL(DWORD(mapaddr)+4);
if hideOnlyTaskMan^ then begin
fname:=allocMem(MAX_PATH+1);
GetModuleFileName(GetModuleHandle(nil),fname,MAX_PATH+1);
if not (ExtractFileName(fname)='taskmgr.exe') then
exit;
end;
InterceptFunctions;
finally
UnmapViewOfFile(mapaddr);
CloseHandle(Hmap);
DLLProc:=@LibraryProc;
end;
end. ]]> http://www.ruery.net/article/Program/1816.htm <![CDATA[浅谈用SHAppBarMessage函数控制任务栏]]> admin@ruery.com(Ruery) Sat,01 Sep 2007 11:10:56 +0800 http://www.ruery.net/default.asp?id=1816
当然了，Autoit本身并不提供该项函数，不过我们可以通过调用API实现，具体方法见下面的例子。

SHAppBarMessage函数的用法：
SHAppBarMessage(消息名,APPBARDATA结构指针)

消息名对应着操作类型，比如ABM_GETSTATE代表着获取任务栏状态，ABM_SETSTATE代表设置任务栏状态等。而APPBARDATA结构指针则储存着任务栏的相关数据，其结构为：
struct APP_BAR_DATA
{
int cbSize;
IntPtr hWnd;
int uCallbackMessage;
int uEdge;
RECT rc;
IntPtr lParam;
}

而RECT本身也包含着一个结构：
struct RECT
{
int left;
int top;
int right;
int bottom;
}

在autoit里写就是：
$pabd = DllStructCreate("dword;int;uint;uint;int;int;int;int;int")

分别对应着cbSize、任务栏句柄、callback指针、边缘的位置、左、上、右、下、状态。

其中cbSize用DllStructGetSize处理就好了，任务栏句柄需要自己添加，别的就不用管了。

顺带一提，用ABM_NEW消息你可以把一个窗口变为任务栏，autoit里已经具备了实现条件，我会抽时间试一下。

理论完毕，剩下的东西就看看下面的例子吧：

程序代码 程序代码
;SHAppBarMessage
;Sends an appbar message to the system.
;
;Syntax
;UINT_PTR SHAppBarMessage( DWORD dwMessage, PAPPBARDATA pData );
;
;MSDN
;http://msdn2.microsoft.com/en-us/library/ms647647.aspx
;
;Author zHcH
;For more information,please visit
;http://hi.baidu.com/zhch_ao

;------------------------定义一些将要使用的变量----------------------------

Global Const $ABM_ACTIVATE = 0x06
Global Const $ABM_GETAUTOHIDEBAR = 0x07
Global Const $ABM_GETSTATE = 0x04
Global Const $ABM_SETSTATE = 0x0000000a
Global Const $ABM_GETTASKBARPOS = 0x05
Global Const $ABM_NEW = 0x00
Global Const $ABM_QUERYPOS = 0x02
Global Const $ABM_REMOVE = 0x01
Global Const $ABM_SETAUTOHIDEBAR = 0x08
Global Const $ABM_SETPOS = 0x03
Global Const $ABM_WINDOWPOSCHANGED = 0x09
;---
Global Const $ABS_ALWAYSONTOP = 0x2
Global Const $ABS_AUTOHIDE = 0x1
;---
Global Const $ABE_LEFT = 0
Global Const $ABE_TOP = 1
Global Const $ABE_RIGHT = 2
Global Const $ABE_BOTTOM = 3
;---

;--------------------------建立APPBARDATA结构的指针----------------------------
;详细信息:http://msdn2.microsoft.com/en-us/library/ms538008.aspx

Global $pabd = DllStructCreate("dword;int;uint;uint;int;int;int;int;int")
DllStructSetData($pabd,1,DllStructGetSize($pabd)) ;cbSize
DllStructSetData($pabd,2,ControlGetHandle("Start","","Shell_TrayWnd")) ;hWnd

;-------------------------定义SHAppBarMessage函数------------------------------

Func SHAppBarMessage($Message,ByRef $pabd)
$lResult = DllCall("shell32.dll","int","SHAppBarMessage","int",$Message,"ptr",DllStructGetPtr($pabd))
If Not @error Then
If $lResult[0] Then
Return $lResult[0]
EndIf
EndIf
SetError(1)
Return False
EndFunc

;----------------------------------例子开始----------------------------------

;---------------------ep1.控制任务栏的状态
#cs
DllStructSetData($pabd,9,BitOR($ABS_ALWAYSONTOP,$ABS_AUTOHIDE)) ;自动隐藏,且位于窗口前
DllStructSetData($pabd,9,$ABS_AUTOHIDE) ;自动隐藏,且不位于窗口前
DllStructSetData($pabd,9,$ABS_ALWAYSONTOP) ;不自动隐藏,且位于窗口前

SHAppBarMessage($ABM_SETSTATE,$pabd) ;发送ABM_SETSTATE消息应用修改
#ce

;---------------------ep2.获取任务栏状态
#cs
$result = SHAppBarMessage($ABM_GETSTATE,$pabd)
If BitAND($result,$ABS_ALWAYSONTOP) = $ABS_ALWAYSONTOP Then ConsoleWrite("ALWAYSONTOP" & @LF)
If BitAND($result,$ABS_AUTOHIDE) = $ABS_AUTOHIDE Then ConsoleWrite("AUTOHIDE" & @LF)
#ce

;---------------------ep3.任务栏的位置
#cs
$result = SHAppBarMessage($ABM_GETTASKBARPOS,$pabd)
If $result Then
ConsoleWrite("Left : " & DllStructGetData($pabd,5) & @LF)
ConsoleWrite("Top : " & DllStructGetData($pabd,6) & @LF)
ConsoleWrite("Right : " & DllStructGetData($pabd,7) & @LF)
ConsoleWrite("Bottom: " & DllStructGetData($pabd,8) & @LF)
EndIf

Switch DllStructGetData($pabd,4)
Case 0
ConsoleWrite("ABE_LEFT" & @LF)
Case 1
ConsoleWrite("ABE_TOP" & @LF)
Case 2
ConsoleWrite("ABE_RIGHT" & @LF)
Case 3
ConsoleWrite("ABE_BOTTOM" & @LF)
EndSwitch
#ce

;----------------------------------例子结束--------------------------------------


提示:你可以将此段代码保存为SHAppBarMessage.au3，并放入include文件夹中。此后再要调用该函数只需在脚本头加上 #include <SHAppBarMessage.au3> 。

——END——]]> http://www.ruery.net/article/Program/1784.htm <![CDATA[取得windows注册序列号]]> admin@ruery.com(Ruery) Sat,25 Aug 2007 13:00:11 +0800 http://www.ruery.net/default.asp?id=1784
'   ##############################################################
'   #         #
'   # VBScript to find the DigitalProductID for your   #
'   # Microsoft windows Installation and decode it to   #
'   # retrieve your windows Product Key     #
'   #         #
'   # -----------------------------------------------   #
'   #         #
'   #   Created by:   Parabellum    #
'   #         #
'   ##############################################################
'
' <--------------- Open Registry Key and populate binary data into an array -------------------------->
'
const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
strValueName = "DigitalProductId"
strComputer = "."
dim iValues()
Set oreg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
      strComputer & "\root\default:StdRegProv")
oreg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues
Dim arrDPID
arrDPID = Array()
For i = 52 to 66
ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
arrDPID( UBound(arrDPID) ) = iValues(i)
Next
' <--------------- Create an array to hold the valid characters for a microsoft Product Key -------------------------->
Dim arrChars
arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")

' <--------------- The clever bit !!! (Decrypt the base24 encoded binary data)-------------------------->
For i = 24 To 0 Step -1
k = 0
For j = 14 To 0 Step -1
k = k * 256 Xor arrDPID(j)
arrDPID(j) = Int(k / 24)
k = k Mod 24
Next
strProductKey = arrChars(k) & strProductKey
' <------- add the "-" between the groups of 5 Char -------->
If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
Next
strFinalKey = strProductKey
'
' <---------- This part of the script displays operating system Information and the license Key --------->
'
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
   ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
   strOS    = objOperatingSystem.Caption
   strBuild    = objOperatingSystem.BuildNumber
   strSerial    = objOperatingSystem.SerialNumber
   strRegistered   = objOperatingSystem.RegisteredUser
Next
Set wshShell=CreateObject("wscript.shell")
strPopupMsg = strOS & vbNewLine & vbNewLine
strPopupMsg = strPopupMsg & "Build Number:   " & strBuild & vbNewLine
strPopupMsg = strPopupMsg & "PID:   " & strSerial & vbNewLine & vbNewLine
strPopupMsg = strPopupMsg & "Registered to:   " & strRegistered & vbNewLine & vbNewLine & vbNewLine
strPopupMsg = strPopupMsg & "Your Windows Product Key is:" & vbNewLine & vbNewLine & strFinalKey
strPopupTitle = "Microsoft Windows License Information"
wshShell.Popup strPopupMsg,,strPopupTitle,vbCancelOnly+vbinformation
WScript.Quit]]> http://www.ruery.net/article/Program/1758.htm <![CDATA[如何透過程式來控制 Windows (XP) 防火牆的開關]]> admin@ruery.com(Ruery) Fri,17 Aug 2007 12:17:20 +0800 http://www.ruery.net/default.asp?id=1758
    Set objFW = CreateObject("HNetCfg.FwMgr").LocalPolicy.CurrentProfile
    With objFW
        .FirewallEnabled = True ' True 開啟 , False 關閉
             .ExceptionsNotAllowed = True ' [ 不允許例外 ] 選項 , True 勾 , 反之則不勾
    End With


或

procedure Set_WindowsXP_FireWall(Enable: boolean);
// 需引用 winsvc, shellapi
// Set_WindowsXP_FireWall(false); // 關閉 Windows Xp 防火牆
//
var
  SCM, hService: LongWord;
  sStatus: TServiceStatus;
begin
  if Enable = false then
  begin
    SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
    hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS);
    ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
    CloseServiceHandle(hService);
  end;
end;

設定Port 的部份，不過還沒測試！不過我還是希望寫成簡單形式的函數庫呼叫方式，大家一起來測試吧！

出處：http://www-new.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_22122056.html
Example of both adding and removing a tcp port from the globaly open ports list (in Windows XP firewall)

Regards,
Russell

// Include ActiveX and ComObj in uses clause (also Variants for D6 and up)

const
  NET_FW_PROFILE_DOMAIN      =  0;
  NET_FW_PROFILE_STANDARD    =  1;

const
  NET_FW_IP_PROTOCOL_TCP     = 6;
  NET_FW_IP_PROTOCOL_UDP     = 17;

const
  NET_FW_SCOPE_ALL           =  0;

const
  NET_FW_IP_VERSION_ANY      =  2;

implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var  ovMgr:         OleVariant;
     ovProfile:     OleVariant;
     ovPort:        OleVariant;
begin

  // Create manager interface
  ovMgr:=CreateOleObject('HNetCfg.FwMgr');

  // Resource protection
  try
     // Get local profile interface
     ovProfile:=ovMgr.LocalPolicy.CurrentProfile;
     // Resource protection
     try
        // Create new port interface
        ovPort:=CreateOleObject('HNetCfg.FwOpenPort');
        try
           // Set port properties
           ovPort.Port:=81;
           ovPort.Name:='Whatever';
           ovPort.Scope:=NET_FW_SCOPE_ALL;
           ovPort.IpVersion:=NET_FW_IP_VERSION_ANY;
           ovPort.Protocol:=NET_FW_IP_PROTOCOL_TCP;
           ovPort.Enabled:=True;
           // Resource protection
           try
              // Add to globally open ports
              ovProfile.GloballyOpenPorts.Add(ovPort);

              ////
              // .... do whatever ....
              ////

           finally
              // Remove from globally open ports
              ovProfile.GloballyOpenPorts.Remove(81, NET_FW_IP_PROTOCOL_TCP);
           end;
        finally
           // Release interface
           ovPort:=Unassigned;
        end;
     finally
        // Release interface
        ovProfile:=Unassigned;
     end;
  finally
     // Release interface
     ovMgr:=Unassigned;
  end;

end;]]> http://www.ruery.net/article/Program/1672.htm <![CDATA[PHP入门教程]]> admin@ruery.com(Ruery) Sun,05 Aug 2007 18:36:22 +0800 http://www.ruery.net/default.asp?id=1672 PHP（"PHP: Hypertext Preprocessor"，超文本预处理器的字母缩写）是一种被广泛应用的开放源代码的多用途脚本语言，它可嵌入到 HTML中，尤其适合 web 开发。
以上是一个简单的回答，不过这是什么意思呢？请看如下例子： 例子 1-1. 一个介绍性的范例
[table=98%,#e0e0e0]
<html>
<head>
<title>Example</title>
</head>
<body>

<?php
echo "Hi, I'm a PHP scrīpt!";
?>

</body>
</html>
[/td][/tr][/table]
请注意这个范例和其它用 C 或 Perl 语言写的脚本之间的区别――与用大量的命令来编写程序以输出 HTML 不同的是，我们用 PHP 编写了一个 HTML 脚本，其中嵌入了一些代码来做一些事情（例如，在本例中输出了一些文本）。PHP 代码被包含在特殊的起始符和结束符中，使得可以进出"PHP 模式"。
和客户端的 Javascrīpt 不同的是，PHP 代码是运行在服务端的。如果在服务器上建立了如上例类似的代码，则在运行该脚本后，客户端就能接收到其结果，但他们无法得知其背后的代码是如何运作的。甚至可以将 web 服务器设置成让 PHP 来处理所有的 HTML 文件，这么一来，用户就无法得知服务端到底做了什么。
使用 PHP 的一大好处是它对于初学者来说极其简单，同时也给专业的程序员提供了各种高级的特性。当看到 PHP 长长的特性列表时，请不要害怕。可以很快的入门，只需几个小时就可以自己写一些简单的脚本。
尽管 PHP 的开发是以服务端脚本为目的，但事实上其功能远不局限与此。



２．PHP 能做什么？
PHP 能做任何事。PHP 主要是用于服务端的脚本程序，因此可以用 PHP 来完成任何其它的 CGI 程序能够完成的工作，例如收集表单数据，生成动态网页，或者发送／接收 Cookies。但 PHP 的功能远不局限于此。
PHP 脚本主要用于以下三个领域：


服务端脚本。这是 PHP 最传统，也是最主要的目标领域。开展这项工作需要具备以下三点：PHP 解析器（CGI 或者服务器模块）、web 服务器和 web 浏览器。需要在运行 web 服务器时，安装并配置 PHP，然后，可以用 web 浏览器来访问 PHP 程序的输出，即浏览服务端的 PHP 页面。如果只是实验 PHP 编程，所有的这些都可以运行在自己家里的电脑中。命令行脚本。可以编写一段 PHP 脚本，并且不需要任何服务器或者浏览器来运行它。通过这种方式，仅仅只需要 PHP 解析器来执行。这种用法对于依赖 cron（Unix 或者 Linux 环境）或者 Task Scheduler（Windows 环境）的日常运行的脚本来说是理想的选择。这些脚本也可以用来处理简单的文本。
编写桌面应用程序。对于有着图形界面的桌面应用程序来说，PHP 或许不是一种最好的语言，但是如果用户非常精通 PHP，并且希望在客户端应用程序中使用 PHP 的一些高级特性，可以利用 PHP-GTK 来编写这些程序。用这种方法，还可以编写跨平台的应用程序。PHP-GTK 是 PHP 的一个扩展，在通常发布的 PHP 包中并不包含它。如果对 PHP-GTK 感兴趣，请访问其网站以获取更多信息。

PHP 能够用在所有的主流操作系统上，包括 Linux、Unix 的各种变种（包括 HP-UX、Solaris 和 OpenBSD）、Microsoft Windows、Mac OS X、RISC OS 等。今天，PHP已经支持了大多数的 web 服务器，包括 Apache、Microsoft Internet Information Server（IIS）、Personal web Server（PWS）、Netscape 以及 iPlant server、Oreilly Website Pro Server、Caudium、Xitami、OmniHTTPd 等。对于大多数的服务器，PHP 提供了一个模块；还有一些 PHP 支持 CGI 标准，使得 PHP 能够作为 CGI 处理器来工作。
综上所述，使用 PHP，可以自由地选择操作系统和 web 服务器。同时，还可以在开发时选择使用面对过程和面对对象，或者两者混和的方式来开发。尽管 PHP 4 不支持 OOP 所有的标准，但很多代码仓库和大型的应用程序（包括 PEAR 库）仅使用 OOP 代码来开发。PHP 5 弥补了 PHP 4 的这一弱点，引入了完全的对象模型。
使用 PHP，并不局限于输出 HTML。PHP 还能被用来动态输出图像、PDF 文件甚至 Flash 动画（使用 libswf 和 Ming）。还能够非常简便的输出文本，例如 XHTML 以及任何其它形式的 XML 文件。PHP 能够自动生成这些文件，在服务端开辟出一块动态内容的缓存，可以直接把它们打印出来，或者将它们存储到文件系统中。
PHP 最强大最显著的特性之一，是它支持很大范围的数据库。用户会发现利用 PHP 编写数据库支持的网页简单得难以置信。目前，PHP 支持如下数据库：
Adabas D InterBase PostgreSQL
dBase FrontBase SQLite
Empress mSQL Solid
FilePro（只读） Direct MS-SQL Sybase
Hyperwave MySQL Velocis
IBM DB2 ODBC Unix dbm
Informix oracle（OCI7 和 OCI8）
Ingres Ovrimos

同时还有一个 DBX 扩展库使得可以自由地使用该扩展库支持的任何数据库。另外，PHP 还支持 ODBC，即 Open Database Connection Standard（开放数据库连接标准），因此可以连接任何其它支持该世界标准的数据库。

PHP 还支持利用诸如 LDAP、IMAP、SNMP、NNTP、POP3、HTTP、COM（Windows 环境）等不计其数的协议的服务。还可以开放原始网络端口，使得任何其它的协议能够协同工作。PHP 支持和所有 web 开发语言之间的 WDDX 复杂数据交换。关于相互连接，PHP 已经支持了对 Java 对象的即时连接，并且可以将他们自由的用作 PHP 对象。甚至可以用我们的 CORBA 扩展库来访问远程对象。
PHP 具有极其有效的文本处理特性，支持从 POSIX 扩展或者 Perl 正则表达式到 XML 文档解析。为了解析和访问 XML 文档，PHP 4 支持 SAX 和 DOM 标准，也可以使用 XSLT 扩展库来转换 XML 文档。PHP 5 基于强健的 libxm2 标准化了所有的 XML 扩展，并添加了 SimpleXML 和 XMLReader 支持，扩展了其在 XML 方面的功能。
如果将 PHP 用于电子商务领域，会发现其 Cybercash 支付、CyberMUT、VeriSign Payflow Pro 以及 MCVE 函数对于在线交易程序来说是非常有用的。
另外，还有很多其它有趣的扩展库。例如 mnoGoSearch 搜索引擎函数、IRC 网关函数、多种压缩工具（gzip、bz2）、日历转换、翻译……



３．需要些什么？
在本教程中，假设用户的服务器已经安装并运行了 PHP，所有以 .php 结尾的文件都将由 PHP 来处理。在大部分的服务器上，这是 PHP 的默认扩展名，不过，也请询问服务器管理员以确认。如果服务器支持 PHP，则不需要做任何事情。只用建立 .php 文件，并把它们放置到 web 目录中，服务器将神奇地自动解析这些文件。不用编译任何东西，也不用安装任何其它的工具，仅仅只需把这些使用了 PHP 的文件想象成简单的 HTML 文件，其中只不过多了一种新的标识符，在这里可以做各种各样的事情。大多数的 web 主机都提供 PHP 的支持，如果你的主机不支持，可以访问 PHP 相关链接来查找支持 PHP 的 web 主机。
假设用户希望在本地机器开发以节约宝贵的带宽。在这种情况下，需要安装一个诸如 Apache 的 web 服务器，当然还有 PHP。可能还希望安装一个数据库，例如 MySQL。




４．第一个 PHP 页面
在 web 服务器根目录（DOCUMENT_ROOT）下建立一个文件名为 hello.php，然后完成如下内容： 例子 2-1. 第一个 PHP 脚本：hello.php
[table=98%,#e0e0e0]
<html>
<head>
<title>PHP 测试</title>
</head>
<body>
<?php echo '<p>Hello World</p>'; ?>
</body>
</html>
在浏览器的地址栏里输入 web 服务器的 URL 访问这个文件，在结尾加上"/hello.php"。如果本地开发，那么这个 URL 一般是 http://localhost/hello.php 或者 http://127.0.0.1/hello.php，当然这取决于 web 服务器的设置。如果所有的设置都正确，那么这个文件将被 PHP 解析，浏览器中将会输出如下结果：
[table=98%,#e0e0e0][tr][td]<html> <head> <title>PHP 测试</title> </head> <body> <p>Hello World</p> </body></html>[/td][/tr][/table]
[/td][/tr][/table]该程序非常的简单，它仅仅只是利用了 PHP 的 echo() 语句显示了 Hello World。用户一定不会满足与此。请注意该文件无需被执行或以任何方式指定。服务器会找到该文件并提供给 PHP 进行解释，因为使用了".php"的扩展名，服务器已被配置成自动传递有着".php"扩展名的文件给 PHP。一个普通的 HTML 文件，加上了几个特别的标签，就可以做很多非常有趣的事情！
如果试过了这个例子，但是没有得到任何输出，或者浏览器弹出了下载框，或者浏览器以文本方式显示了源文件，可能的原因是服务器还没有支持 PHP，或者没有正确配置。如果本地开发，请阅读手册有关安装的章节以确保所有的设置都正确。还要确认通过浏览器访问的 URL 确实指向了服务器上的这个文件。如果只是从本地文件系统调用这个文件，它不会被 PHP 解析。如果问题仍然存在，请通过 PHP 在线支持中的各种方式获取帮助。
以上例子的目的是为了显示 PHP 特殊标识符的格式。在这个例子中，用 <?php 来表示 PHP 标识符的起始，然后放入 PHP 语句并通过加上一个终止标识符 ?> 来退出 PHP 模式。可以根据自己的需要在 HTML 文件中像这样开启或关闭 PHP 模式。

　　　关于文本编辑器: 有很多文本编辑器以及集成开发环境（IDE）可以被用来建立、编辑和管理 PHP 文件。这些工具中的一部分被列在 PHP 编辑器列表中。如果希望推荐其它的编辑器，请访问以上页面，并要求该页面的维护者将你推荐的编辑器加入到该列表中。使用支持语法高亮功能的编辑器会给开发带来很多帮助。

关于文字处理器: 诸如 StarOffice Writer、Microsoft Word 和 Abiword 的文字处理器不适合用来编辑 PHP 程序。如果希望用以上这些工具的某一种来处理脚本，必须保证将结果存成了纯文本格式，否则 PHP 将无法读取并运行这些脚本。



关于 Windows 记事本: 如果使用 Windows 记事本来编写 PHP 脚本，需要注意在保存文件时，文件的后缀名应该为 .php（记事本将自动在文件名后面加上 .txt 后缀，除非采取以下措施之一来避免这种情况）。当保存文件时，系统会让你指定文件的文件名，这时请将文件名加上引号（例如 "hello.php"）。或者，也可以点击"保存"对话框中的"保存类型"下拉菜单，并将设置改为"所有文件"。这样在输入文件名的时候就不用加引号了。


现在已经成功建立了一个简单的 PHP 脚本。还可以建立一个最著名的 PHP 脚本。调用函数phpinfo()，将会看到很多有关自己系统有用的信息，以及预定义变量、已经加载的 PHP 模块和配置信息。请花一些时间来查看这些重要的信息。



５．实用的脚本
现在来编写一些更实用的脚本，比如检查浏览页面的访问者在用什么浏览器。要达到这个目的，需要检查用户的 agent 字符串，它是浏览器发送的 HTTP 请求的一部分。该信息被存储在一个变量中。在 PHP 中，变量总是以一个美元符开头。我们现在感兴趣的变量是 $_SERVER['HTTP_USER_AGENT']。


注: $_SERVER 是一个特殊的 PHP 保留变量，它包含了 web 服务器提供的所有信息，被称为自动全局变量（或"超全局变量"）。这些特殊的变量是在 PHP 4.1.0 版本引入的。在这之前使用 $HTTP_*_VARS 数组，如 $HTTP_SERVER_VARS。尽管现在已经不用了，但它们在新版本中仍然存在要显示该变量，只需简单地进行如下操作：

例子 2-3. 打印一个变量（数组元素）
[table=98%,#e0e0e0]
<?php echo $_SERVER['HTTP_USER_AGENT']; ?>
该脚本的输出可能是：
[table=98%,#e0e0e0][tr][td]Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)[/td][/tr][/table]
[/td][/tr][/table]PHP 有很多种不同类型的变量。在以上例子中我们打印了一个数组的单元。数组是一类非常有用的变量。
$_SERVER 只是 PHP 自动全局化的变量之一。可以查阅保留变量一节来查看这些变量的列表，或者也可以通过上节例子中phpinfo()函数的输出来查看。
可以在一个 PHP 标识中加入多个 PHP 语句，也可以建立一个代码块来做比简单的 echo 更多的事情。例如，如果需要识别 Internet Explorer，可以进行如下操作： 例子流程控制函数的使用
[table=98%,#e0e0e0]
<?php
if (strpos($_SERVER['HTTP_USER_AGENT'], 'MSIE') !== FALSE) {
echo '正在使用 Internet Explorer。<br />';
}
?>
该脚本的输出可能是：
[table=98%,#e0e0e0][tr][td]正在使用 Internet Explorer。<br />[/td][/tr][/table]
[/td][/tr][/table]这里要介绍一些新的原理。上面用了一个if[/url] 语句。如果用户对 C 语言的基本语法比较熟悉，则应该对此很熟悉，否则，可能需要拿起任何一本 PHP 介绍性的书籍并阅读前面的两三个章节。可以在 http://www.php.net/books.php 找到有关 PHP 的书籍的列表。
需要介绍的第二个原理，是对strpos() 函数的调用strpos()是 PHP 的一个内置函数，其功能是在一个字符串中搜索另外一个字符串。例如我们现在需要在 $_SERVER['HTTP_USER_AGENT']（即所谓的 haystack）变量中寻找 'MSIE'。如果在这个 haystack 中该字符串（即所谓的 needle）被找到，则函数返回 needle 在 haystack 中相对开头的位置；如果没有，则返回 FALSE。如果该函数没有返回 FALSE，则 if 会将条件判断为 TRUE 并运行其花括号 {} 内的代码；否则，则不运行这些代码。可以自己尝试利用strtoupper()和strlen()来建立类似的脚本。在本手册中相关的页面也包含有范例。如果对如何使用函数不是很确定以下我们进一步显示如何进出 PHP 模式，甚至是在一个 PHP 代码块的中间： 例子 2-5. 混和 HTML 和 PHP 模式
[table=98%,#e0e0e0]
<?php
if (strpos($_SERVER['HTTP_USER_AGENT'], 'MSIE') !== FALSE) {
?>
<h3>strpos() 肯定没有返回假 (FALSE)</h3>
<p>正在使用 Internet Explorer</p>
<?php
} else {
?>
<h3>strpos() 肯定返回假 (FALSE)</h3>
<center><b>没有使用 Internet Explorer</b></center>
<?php
}
?>
该脚本的输出可能是：
[table=98%,#e0e0e0][tr][td]<h3>strpos() 肯定没有返回假 (FALSE)</h3><p>正在使用 Internet Explorer</p>[/td][/tr][/table]
[/td][/tr][/table]和以上我们用一个 PHP 的 echo 语句来输出不同的是，我们跳出了 PHP 模式来直接写 HTML 代码。这里很值得注意的一点是，对于这两种情况而言，脚本的逻辑效率是相同的。在判断了strpos()[/url] 函数的返回值是 TRUE 或是 FALSE，也就是判断了字符串 'MSIE' 是否被找到之后，最终只有一个 HTML 块被发送给浏览者]]> http://www.ruery.net/article/Program/1664.htm <![CDATA[利用xmlhttp分块上传文件]]> admin@ruery.com(Ruery) Sun,05 Aug 2007 03:13:05 +0800 http://www.ruery.net/default.asp?id=1664
编写思路:把本地文件在客户端通过base64编码以后发送目的地.
测试过程中,上传文件过大,导致超时不成功.
后来经过改善.把编码分段发送.测试20M成功

编写目的:在传统的解决方案里面,一次一次选取上传可以.但是在碰到把数据库里文件路径读出来,并把这些文件上传到一个地方的时候就比较麻烦.
如果得到路径一个一个去找到用ftp当然也是可以的,但每次找这些文件我看都会比较费时。这里编写这个主要就是为了通过数据库里的文件路径取得文件.把文件一次批量上传到一个地方.
其主要目的还是为了锻炼一下自己.

解决过程:起初试着用模拟键盘输入强行赋值给file控件用传统的方法上传。可是老碰到空值的情况，以至有很多文件没有发送出去。查阅一些资料,现在是把所有路径通过数据库取到然后写到一个js里。然后在前台用js读取这些路径,通过xmlhttp来发送文件。
因为ie不太喜欢xmlHttp.总认为他有恶意行为.所以老谈出提示警告.所以操作的时候不能使用web路径.只能用物理路径去访问它.
然后服务端有一文件来接收这些编码,并对其进行解码.所以我称之为"c/s". ^_^

目前很多代码还在完善中.
简单介绍一下:

aryFiles.push("c:\\aaa.zip") ;
aryFiles.push("c:\\bbb.exe") ;
这里为文件路径和文件.可为多个
以后这个路径也可以通过file控件在客户端取到

http:// www.xxx.com/xxx/xxx.asp
这个是目的地,可以改为自己想要的地址.

ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename)
server.mappath(".") &"/"& + str_filename 这里是读取文件.
server.mappath(".") &"/"& 路径和存放路径一致

ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2
server.mappath(".") &"/"& 这个为存放文件的路径. str_filename 为文件名


这里读取和存放都是放在程序所放目录中.大家测试的时候也可以保持这样即可

把第一段代码放到本地(eg:c:\upload.htm)

把第二段代码放到服务器上,可以是本地服务器,可以是公网服务器.和上面的目的地保持一致
(eg:http://www.xxx.com/upload.asp or http:// localhost/www/upload.asp)


操作:找到第一段代码保存的地方。执行即可(eg:打开c盘执行upload.htm)

目前程序还在调试过程中,希望大家提出宝贵意见
客户端代码

<html>
<head>
</head>
<body> <input type=button onclick="BeginSendFiles();"
value="发送" /> <input type=button onclick="JavaScript:
Breaked=true;" value="中断" /> <div id="ddd"
width=300px></div> <br></br> <DIV
id=div_message></DIV>
</body>
<script language=VBScript> Function bytes2BSTR(vIn) strReturn =
"" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If
ThisCharCode < &H80 Then strReturn = strReturn &
Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn =
strReturn & Chr(CLng(ThisCharCode) * &H100 +
CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End
Function
</script>
<script language=javascript> var xmlhttp ; var ado_stream ; var
mFileName, mPartStart, mPartID, mPartEnd ; var SendCount ; var
BlockSize ; var Breaked ; var aryFiles ; BlockSize = 1024*100
;//每次发送字节数 Breaked = false ; aryFiles = new Array() ; // 开始发送文件
function BeginSendFiles() { initAryFiles() ; SendFile(aryFiles.pop()) ;
} // 构造待发送文件的数组 function initAryFiles() { aryFiles.push("c:\\aaa.zip")
; aryFiles.push("c:\\bbb.exe") ; //c:\\aaa.zip c:\\bbb.exe本地文件
aryFiles.reverse() ;//文件名 } function SendFile(vFullPath) { // 空文件则不执行上传
if (!vFullPath) { return ; } Breaked = false ; div_message.innerHTML =
"" ; ado_stream = new ActiveXObject("ADODB.Stream"); // 读取文件的流
ado_stream.Type = 1; ado_stream.Open();
ado_stream.LoadFromFile(vFullPath); // 读取文件 ado_stream.position = 0 ;
SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余数则多发送一次 //
alert(SendCount) ; var reg = /\b\w+.\w+$/gi mFileName =
reg.exec(vFullPath) ; mPartStart = true ; mPartID = 1 ; mPartEnd =
false ; SendData() ; } function SendData() { if (SendCount > 0) {
var dom = new ActiveXObject("msxml2.DOMDocument"); // 发送的xml文件
dom.async = false; dom.resolveExternals = false; // 构造xml文件头 var node =
dom.createProcessingInstruction("xml","version='1.0'");
dom.appendChild(node) ; node = null ; // 构造root节点 var root =
dom.createElement("root"); dom.appendChild(root) ;
dom.documentElement.setAttribute("xmlns:dt",
"urn:schemas-microsoft-com:datatypes"); // 构造保存二进制数据的节点updata node =
dom.createElement("upData") ; node.dataType = "bin.base64" ; //
bin。base64编码 var att = dom.createAttribute("FileName") ; // 文件名属性
att.value = mFileName ; node.setAttributeNode(att) ; att = null ; var
att = dom.createAttribute("PartStart") ; // 分段开始标记 att.value =
mPartStart ; node.setAttributeNode(att) ; att = null ; var att =
dom.createAttribute("PartID") ; // 分段序号 att.value = mPartID ;
node.setAttributeNode(att) ; att = null ; var att =
dom.createAttribute("PartEnd") ; // 分段结束标记 att.value = mPartEnd ;
node.setAttributeNode(att) ; att = null ; root.appendChild(node) ;
node.nodeTypedValue = ado_stream.Read(BlockSize); // 节点数据从stream读取，固定长度
node = null ; SendCount -= 1 ; xmlhttp = new
ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.open("POST","http://www.xxx.com/xxx/xxx.asp", false);
//http://www.xxx.com/xxx/xxx.asp 为web路径上的文件 xmlhttp.onreadystatechange=
CallBack ; xmlhttp.send(dom); mPartStart = false ; xmlhttp = null ; }
else { ado_stream.Close(); ado_stream = null ; } } function CallBack()
{ // 上传成功 if(xmlhttp.readystate == 4) { // 检查是否中断上传 if(Breaked) {
return ; } if (SendCount > 0) { mPartID += 1 ; //
div_message.innerHTML += ("<br>" + xmlhttp.ResponseText) ; var p
= Math.floor((mPartID/(Math.ceil(ado_stream.size/BlockSize) + 1)) *
100) ; // 计算进度百分比 ShowBar(p) ; var t = setTimeout("SendData();", 1) ; }
else { // 传送完文件 //div_message.innerHTML += mFileName +
"传送完毕！<br>" ; // 继续传下一文件 ShowBar(0) ; var cFile = aryFiles.pop()
; SendFile(cFile) ; } } } function ShowBar(per) { // 进度条 ddd.innerHTML
= "<table width='200' border=0 cellpadding='0' cellspacing='0'
><tr><td bgcolor='#6699FF'><input type=button style='
width:" + per + "% ; border:0px; background:#005599; color:#FFFFFF'
value=" + per + "%> </td></tr></table>" ; }
</script>
</html>

服务端代码

<%@ LANGUAGE=VBScript%>
<% Option Explicit
Response.Expires = 0  

' 定义变量和对象。
dim ado_stream
dim xml_dom
dim xml_data
dim str_filename
dim bol_PartStart
dim int_PartID
dim bol_PartEnd

' 创建 Stream 对象
set ado_stream = Server.CreateObject("ADODB.Stream")
' 从Request对象创建 XMLDOM对象
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
xml_dom.load(request)
' 读出包含二进制数据的节点
set xml_data = xml_dom.selectSingleNode("root/upData")
str_filename = xml_data.getAttribute("FileName")
bol_PartStart = CBool(xml_data.getAttribute("PartStart"))
int_PartID = CInt(xml_data.getAttribute("PartID"))
bol_PartEnd = CBool(xml_data.getAttribute("PartEnd"))

' 打开Stream对象，把数据存入其中  
ado_stream.Type = 1 ' 1=adTypeBinary  
ado_stream.open  
if not bol_PartStart then
       ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename)          ' 读取文件
       ado_stream.position = ado_stream.size
end if
ado_stream.Write xml_data.nodeTypedValue
' 文件存盘
ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2
'保存文件 2=adSaveCreateOverWrite  
ado_stream.close

' 释放资源
set ado_stream = Nothing  
set xml_dom = Nothing
' 向浏览器返回信息
Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart
%>

另外：此文的目的并不是说这个程序能给朋友们解决什么问题，主要目的还是为了和大家交流一些心得：
碰到问题->发现问题->解决问题.
希望大家都不要成为一个标准的代码机器人。
多学、多看、多思考、多实践。
没有什么是不能解决的。 ]]>