當前位置:首頁 » 操作系統 » 自動注冊源碼

自動注冊源碼

發布時間: 2022-06-05 05:20:04

㈠ 求c#自動注冊com組件源碼......

#include"iostream"
#include"comdef.h"
#include"comdefsp.h"
usingnamespacestd;
voidRegisterTlb(BSTRstrFilePath)
{
std::cout<<(_bstr_t)strFilePath;
ITypeLibPtrpTypeLib=NULL;
HRESULThr=::LoadTypeLibEx(strFilePath,REGKIND_REGISTER,&pTypeLib);
pTypeLib=NULL;
if(FAILED(hr))
{
std::cout<<" 注冊失敗或文件不存在"<<endl;
return;
}

std::cout<<" 注冊成功 ";
}
voidUnRegisterTlb(BSTRstrFilePath)
{
std::cout<<(_bstr_t)strFilePath;
ITypeLibPtrpTypeLib=NULL;
TLIBATTR*pAttr=NULL;
HRESULThr=::LoadTypeLib(strFilePath,&pTypeLib);
if(SUCCEEDED(hr))
{
pTypeLib->GetLibAttr(&pAttr);
hr=::UnRegisterTypeLib(pAttr->guid,pAttr->wMajorVerNum,
pAttr->wMinorVerNum,pAttr->lcid,
pAttr->syskind);
if(FAILED(hr))
{
std::cout<<" 反注冊失敗"<<endl;
}
pTypeLib->ReleaseTLibAttr(pAttr);
pAttr=NULL;
pTypeLib=NULL;
std::cout<<" 注冊成功 ";
return;
}
std::cout<<"反注冊失敗或文件不存在"<<endl;
}
int_tmain(intargc,_TCHAR*argv[])
{
if(argc==2)
{
RegisterTlb(argv[1]);
}
elseif(argc==3)
{
if(_wcsicmp(argv[1],L"-u")==0)
{
UnRegisterTlb(argv[2]);
}
}
else
{
std::cout<<"參數不正確 ";
std::cout<<"TlbTeg-u[FilePath] 反注冊Tlb文件 ";
std::cout<<"TlbTeg[FilePath] 注冊Tlb文件 ";
}
}

有C++的源碼,可以用腳本執行,傳入參數為tlb文件完全路徑,這個代碼用於批量注冊、反注冊tlb

㈡ c# 自動注冊源代碼

哥哥,他的是貪吃蛇的代碼啊

㈢ 跪求簡單的php用戶注冊源碼

用$_POST[ ]的方法來獲取用戶表單里填寫的信息,然後再獲取之後用php寫查詢語句,看提交的是否為空,為空則怎樣提示,不為空就查找,查找到了就登錄成功,查不到就登錄信息錯誤。

㈣ 求高手,java 實現自動注冊提交,急!!!

這個,如果沒有驗證碼的話,還是比較簡單的。
使用java.net里的HTTP協議相關的類和方法完全可以實現。我給你提示一下,你可以學習下使用java.net.URL和java.net.HttpURLConnection來實現向伺服器提交數據,當然,這個是遵循http協議的,而且如何添加消息頭,如何生成提交的數據(主要是針對POST方式),以及如何在伺服器端接收數據並處理存入資料庫都是調用固定的方法,不是很復雜。
說白了,我上面說的是非常中規中距的,因為畢竟你不需要構造網頁的源文件,只要伺服器端有接收客戶端post過去的數據就可以。但是你說的實現自動提交,就要分析他們網站的注冊頁面的源代碼,理論上,提交時伺服器端關心和處理的應該是只有用戶名,密碼啊之類的信息,但是有的網站為了安全,也會採取一些其他措施,但是,這些措施都是局限在http協議范圍里的,所以,如果你熟悉http協議的話,分析一下他們的注冊頁面源代碼,然後用我上一段說的java.net里的類想伺服器端提交,應該是可以的。
其實說到底,就是要用java來實現一個使用瀏覽器想伺服器提交數據的過程,只是涉及的東西比較多,掩蓋了本質的內容。瀏覽器為我們做了太多的工作,是我們忘記了真相。其實瀏覽器的工作本質上我覺得就兩方面,第一,用內核顯示網頁,包括解析JavaScript代碼和網頁元素之類的,也就是遵循html文檔格式,第二就是遵循http協議,並通過該協議使用協議規定的格式來與伺服器端進行數據交互。
說得夠詳細了吧,再說就是具體怎麼編碼了,完全可以按著這個思路來實現了,還不給分?!

㈤ 哪裡有下全自動注冊軟體源碼

注冊什麼的

㈥ asp程序實現簡單的注冊,登錄網頁的源代碼

1,(index.asp 用戶登陸頁面)
<!-- #include file="conn.asp" -->
<!-- blog.soowooo.cn 悠悠長假期 -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>會員</title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋體;
font-size: 14px;
}
-->
</style>
</head>
<body>
<center>
<p>會員注冊系統</p>
<form name="form1" method="post" action="login.asp">
<table width="34%" border="0">
<tr>
<td width="33%" height="30">用戶名:</td>
<td width="67%" height="30"><input name="username" type="text" id="username" size="15"></td>
</tr>
<tr>
<td height="30">密 碼:</td>
<td height="30"><input name="password" type="password" id="password" size="15"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="Submit" value="確定">
<input type="reset" name="Submit" value="重置"></td>
</tr>
<tr>
<td colspan="2"><a href="reg.asp" target="_self">注冊</a></td>
</tr>
</table>
</form>
</center>
</body>

</html>

2,(login.asp 用戶數據處理文件)

<!-- #include file="conn.asp" -->
<%
'打開資料庫判斷用戶是否存在,info為表名,username為欄位名
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&request.Form("username")&"' and password='"&request.Form("password")&"'"
rsc.open sqlc,conn,1,1
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
set rsc=nothing
response.Redirect("change.asp")
'如果用戶不存在,session("username")為空
%>
3,(change.asp 用戶信息修改頁面)
<!-- #include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改</title>
<style type="text/css">
<!--
body,td,th {
font-size: 14px;
}
-->
</style></head>
<center>
<body>
<br>
<%

set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&session("username")&"' and password='"&session("password")&"'"
rsc.open sqlc,conn,1,1
nr=rsc("password")
username=rsc("username")
password=rsc("password")
sex=rsc("sex")
qq=rsc("qq")
mail=rsc("mail")
add=rsc("add")
personalinfo=rsc("personalinfo")
vv=rsc("ntime")
set rsc=nothing
if nr="" then
response.Redirect("index.asp")
end if
if strcomp(nr,request.Form("password"))=0 then
response.Write("歡迎你!"&request.Form("username"))
response.Write("你是在"&vv&"注冊的")
session("username")=request.Form("username")
end if
if session("username")="" then
response.Redirect("index.asp")
end if
%>
<form name="form1" method="post" action="change.asp?ac=ch">
<table width="39%" height="105" border="0" >
<tr>
<td width="27%" height="30">用戶名:</td>
<td width="73%" height="30"><input name="username" type="text" id="username" value="<%=username%>">
*</td>
</tr>
<tr>
<td height="30">密 碼:</td>
<td height="30"><input name="password" type="text" id="password" value="<%=password%>">
*</td>
</tr>
<tr>
<td height="30">性 別:</td>
<td height="30"><input name="sex" type="text" id="sex" value="<%=sex%>"></td>
</tr>
<tr>
<td height="30">QQ:</td>
<td height="30"><input name="qq" type="text" id="qq" value="<%=qq%>"></td>
</tr>
<tr>
<td height="30">Mail:</td>
<td height="30"><input name="mail" type="text" id="mail" value="<%=mail%>"></td>
</tr>
<tr>
<td height="30">地 址:</td>
<td height="30"><input name="add" type="text" id="add" value="<%=add%>"></td>
</tr>
<tr>
<td>介紹</td>
<td><textarea name="personalinfo" cols="30" rows="6" id="personalinfo"><%=personalinfo%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="修改">
<a href="change.asp?se=y" target="_self">退出系統</a></td>
<% if strcomp(request.QueryString("se"),"y")=0 then
session("username")=""
response.Redirect("index.asp")
end if
%>
</tr>
</table>
</form>
<%
if strcomp(request.QueryString("ac"),"ch")=0 then
set rs=server.createobject("adodb.recordset")
sql="select * from info where username='"&session("username")&"'"
rs.open sql,conn,1,3
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs.update
set rs=nothing
response.Write("修改完成!")
end if
%>
</body>
</center>
</html>
4,(reg.asp 新用戶注冊頁面)
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用戶注冊</title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋體;
font-size: 14px;
}
-->
</style>
</head>
<body>
<center>
用戶注冊<br>
<%
=request.QueryString("msg")
%>
<form name="form1" method="post" action="addnewdata.asp?ac=adser">
<table width="39%" height="105" border="0" >
<tr>
<td width="27%" height="30">用戶名:</td>
<td width="73%" height="30"><input name="username" type="text" id="username">
*</td>
</tr>
<tr>
<td height="30">密碼:</td>
<td height="30"><input name="password" type="password" id="password">
*</td>
</tr>
<tr>
<td height="30">確定密碼:</td>
<td height="30"><input name="password2" type="password" id="password2">
*</td>
</tr>
<tr>
<td height="30">性別:</td>
<td height="30"><input name="sex" type="text" id="sex"></td>
</tr>
<tr>
<td height="30">QQ:</td>
<td height="30"><input name="qq" type="text" id="qq"></td>
</tr>
<tr>
<td height="30">Mail:</td>
<td height="30"><input name="mail" type="text" id="mail"></td>
</tr>
<tr>
<td height="30">地址:</td>
<td height="30"><input name="add" type="text" id="add"></td>
</tr>
<tr>
<td>個人介紹</td>
<td><textarea name="personalinfo" cols="30" rows="6" id="personalinfo"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
</center>
</body>
</html>
5,(addnewdata.asp 新用戶注冊數據處理文件)
<!-- #include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>成功</title>
</head>
<body>
<%
ac=request.QueryString("ac")
msg="注冊錯誤信息"
if request.Form("username")="" then
msg=msg&"<br>"&"用戶名不能為空"
end if
if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0 then
msg=msg&"<br>"&"兩次密碼輸入不同"
end if

if len(request.Form("password"))<6 then
msg=msg&"<br>"&"密碼太簡單"
end if

if strcomp(msg,"注冊錯誤信息")>0 then
response.Redirect("reg.asp?msg="&msg)
end if
if ac="adser" then
set rsc=server.createobject("adodb.recordset")
sql="select * from info where username='"&request.Form("username")&"'"
rsc.open sql,conn,1,1
ck=rsc("username")
set rsc=nothing
if ck<>"" then
msg=msg&"<br>"&"用戶名被人注冊"
response.Redirect("reg.asp?msg="&msg)
end if
dsql="select * from info where id is null"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,3
rs.addnew
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs("ntime")=now
rs.update
set rs=nothing
%>
<center>
<a href="index.asp" target="_self">注冊成功,點擊登陸</a>
</center>
<%
end if
%>
</body>
</html>

6,(conn.asp 資料庫連接文件)
<%
'連接資料庫開始
dim conn,rs,sql
on error resume next
dbpath=server.mappath("userinfo.mdb")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="
'創建記錄對象
set rs=server.createobject("adodb.recordset")
%>

7,(userinfo.mdb ACCESS 資料庫)
在ACCESS中建一個表,然後在這個表中建立欄位名稱
表名:info

欄位名稱 數據類型
id 自動編號
username 文本
password 文本
sex 文本
quest 文本
qq 文本
mail 文本
personalinfo 文本
ntime 文本

㈦ 易語言怎麼實現自動注冊功能

===============================源碼============================Delay 1000
Call Plugin.Web.Bind("wqm.exe")
//<>===================================================打開網頁免費申請
Call Plugin.Web.Tips("打開網頁免費申請網頁")
Call Plugin.Web.Go(" http://newreg.qq.com/")
Call Plugin.Web.SetSize(913,850)
Delay 1000
//<>===================================================輸入名字
Call Plugin.Web.HtmlInput("name","type:text&index:0")
Call Plugin.Web.Tips("輸入生日")
Delay 500
//<>===================================================輸入生日-年
Call Plugin.Web.LeftClick(325,200)
Delay 500
For 3
Call Plugin.Web.KeyPress(40)
Next
Delay 500
//<>===================================================輸入生日-月
Call Plugin.Web.LeftClick(425,200)
Delay 500
For 3
Call Plugin.Web.KeyPress(40)
Next
Delay 500
//<>===================================================輸入生日-日
Call Plugin.Web.LeftClick(525,200)
Delay 500
For 3
Call Plugin.Web.KeyPress(40)
Next
Delay 500
Call Plugin.Web.LeftClick(625,200)
//<>===================================================輸入密碼
Call Plugin.Web.LeftClick(360,260)
Delay 500
Call Plugin.Web.Tips("輸入密碼,默認密碼:a111111")
Call Plugin.Web.KeyPress(65)
For 6
Call Plugin.Web.KeyPress(49)
Next
Delay 500
Call Plugin.Web.LeftClick(360,310)
Delay 500
Call Plugin.Web.KeyPress(65)
For 6
Call Plugin.Web.KeyPress(49)
Next
Delay 500
//<>==================================================輸入驗證碼
Call Plugin.Web.Tips("等待輸入驗證碼,結束按回車鍵")
Call Plugin.Web.LeftClick(335,373)
Delay 500
Rem 等待
key=WaitKey()
//<>===================================================按回車鍵即可提交申請
If key=13 Then
Goto 離開
End If
Goto 等待
Rem 離開
//<>===================================================確定並同意以下條款
Call Plugin.Web.Tips("注冊提交")
//Call Plugin.Web.LeftClick(375,485)
Call Plugin.web.HtmlClick("tag:span&txt:確定並同意以下條款")
Delay 500
EndScript
Sub OnScriptExit()
Call Plugin.Web.Tips("腳本停止運行")
End Sub
請問你要注冊什麼東西,如果是類似注冊QQ號,和某些網路表單可以使用按鍵精靈來實現,因為問題不明確,我不好說詳細,如果有需要可以加我好友QQ921915259。謝謝採納。。。。下面是實現自動注冊QQ的源碼希望能幫到你。

㈧ 誰有迅雷帳號自動注冊的軟體易語言源碼

如果是簡單的注冊還是可以做的!

1樓的朋友剛剛說的彗星HTTP模塊,你可以去了解一下,現在很多網頁類操作都是使用這個模塊的,

你去學學一天就應該能做到了,可能郵箱驗證有點麻煩,你可以先注冊郵箱,在注冊迅雷,用軟體自動填表

注冊郵箱時找那種容易注冊的,像網易等等這些大公司就不要用了,用軟體注冊起來太麻煩了

驗證碼嘛,有那功夫做還不如還是自己填呢

熱點內容
如何編寫用例配置py文件 發布:2024-10-31 07:22:58 瀏覽:961
我的世界原版rpg伺服器ip地址 發布:2024-10-31 07:20:38 瀏覽:419
華中數控18xp密碼多少 發布:2024-10-31 07:20:34 瀏覽:931
解壓館主題 發布:2024-10-31 07:19:58 瀏覽:275
手機存儲卡和相機存儲卡一樣嗎 發布:2024-10-31 07:19:56 瀏覽:509
女性私人體雲伺服器圖片 發布:2024-10-31 07:08:22 瀏覽:761
dota2庫文件夾 發布:2024-10-31 07:06:04 瀏覽:674
php超時處理 發布:2024-10-31 07:05:56 瀏覽:539
javaftp文件路徑 發布:2024-10-31 06:55:55 瀏覽:785
java閱讀 發布:2024-10-31 06:44:28 瀏覽:55