unit umain;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, extctrls, dx**tner, dxeditor, dxexedtr, dxedlib, stdctrls,
***ctrls,***obj, buttons;
type
tfrmmain = class(tform)
panel1: tpanel;
bevel1: tbevel;
bevel2: tbevel;
bevel4: tbevel;
label1: tlabel;
hostname: tdxpickedit;
label2: tlabel;
databasename: tdxpickedit;
groupbox1: tgroupbox;
label3: tlabel;
dxedit1: tdxedit;
bitbtn1: tbitbtn;
bitbtn2: tbitbtn;
label4: tlabel;
label5: tlabel;
userid: tdxedit;
userpass: tdxedit;
label6: tlabel;
passlogin: tradiobutton;
ntlogin: tradiobutton;
procedure hostnamedropdown(sender: tobject);
procedure bitbtn2click(sender: tobject);
procedure databasenamedropdown(sender: tobject);
procedure ntloginclick(sender: tobject);
procedure passloginclick(sender: tobject);
private
public
end;
varfrmmain: tfrmmain;
implementation
procedure tfrmmain.hostnamedropdown(sender: tobject);
varsqlserver:variant;
serverlist:variant;
i,nservers:integer;
db:=server.databases;
i:=db.count;
databasename.items.clear;
for j:=1 to i do
databasename.items.add(db.item(j).name);
server:=null;
sqlserver:=null;
db:=null;
end;
procedure tfrmmain.ntloginclick(sender: tobject);
begin
if ntlogin.checked=true then
begin
userid.enabled:=false;
userpass.enabled:=false;
end;
end;
procedure tfrmmain.passloginclick(sender: tobject);
begin
if passlogin.checked=true then
begin
userid.enabled:=true;
userpass.enabled:=true;
end;
end;
end.
程式中使用的控制項為developer express inc的擴充套件控制項。經過測試可通過兩種登入方式
偵聽區域網內密碼
只需在前面的網路嗅探程式基礎上，新增對搜尋出的埠號進行的增加功能即可 如下 在decodeippacket中新增 switch ntohs ptcphdr destinationport break case80 case 8080 break void getftp char pdata.dwor...
偵聽區域網內密碼
只需在前面的網路嗅探程式基礎上，新增對搜尋出的埠號進行的增加功能即可 如下 在decodeippacket中新增 switch ntohs ptcphdr destinationport break case80 case 8080 break void getftp char pdata.dwor...
Windows 區域網內共享
在區域網內，其它成員無需密碼就可以訪問某台計算機共享的某個磁碟或某個資料夾。本文記錄幾個關鍵點，共享端 需要共享的計算機 使用者端 從共享計算機讀取檔案的計算機 1 選中我的電腦圖示 右鍵 計算機管理，開啟計算機管理介面 2 選擇本地使用者和組 使用者雙擊guest，去掉帳戶已禁用 1 開啟控制面板...