『壹』 腳本游戲製作大師怎麼做游戲界面，比如說怎麼做一個單機cf的游戲登錄器界面
具體單機游戲的製作 建議到中華游戲網 單機論壇看一下
『貳』 怎麼才能把腳本放在傳奇登陸器裡面
新添加個伺服器列表就行了，你打開配置登錄器工具就可以明白生成登陸器的流程
『叄』 VB怎麼做一個登錄器
編輯一個有0~9、小數點、加減乘除的計算器
用一個窗體就可以實現，你可以試試
Option Explicit
Dim strNumber As String
Dim strPoint As String
Dim dblNum1 As Double
Dim intOperator As Integer
'清除結果
Private Sub cmdGT_Click()
txtDisplay.Text = "0."
strNumber = ""
strPoint = "."
intOperator = 7
End Sub
'輸入數字
Private Sub cmdNumber_Click(Index As Integer)
strNumber = strNumber & cmdNumber(Index).Caption
txtDisplay.Text = strNumber & strPoint
End Sub
Private Sub cmdOnOff_Click()
End
End Sub
'運算過程
Private Sub cmdOperator_Click(Index As Integer)
Dim dblnum2 As Double
'是第一次單擊運算符時，將輸入的值先賦給第一個數，否則賦值給第二個數進行運算
If intOperator = 7 Then
dblNum1 = CDbl(txtDisplay.Text)
Else
dblnum2 = CDbl(Val(txtDisplay.Text))
'根據輸入的符號進行運算
'求普通運算
Select Case intOperator
Case 0
dblNum1 = dblNum1 + dblnum2
Case 1
dblNum1 = dblNum1 - dblnum2
Case 2
dblNum1 = dblNum1 * dblnum2
Case 3
If dblnum2 > 0 Then
dblNum1 = dblNum1 / dblnum2
Else
MsgBox "除數不能為「0」！請重新輸入除數。", vbOKOnly + vbInformation, "除零錯誤"
Index = intOperator
End If
Case 6
dblNum1 = dblNum1 * dblnum2 / 100
End Select
End If
'取得當前輸入的運算符，以做下次運算
intOperator = Index
strNumber = ""
txtDisplay = CStr(dblNum1)
'判斷是否為文本框中的數字加點
If Not txtDisplay Like "*.*" Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub
Private Sub cmdOtherOper_Click(Index As Integer)
Dim dblNum As Double
'求平方根，平方，
dblNum = CDbl(Val(txtDisplay.Text))
Select Case Index
Case 0
'驗證數據是否有效
If dblNum >= 0 Then
txtDisplay.Text = CStr(Sqr(dblNum))
Else
MsgBox "負數不能開平方根！", _
vbOKOnly + vbCritical, "開平方根錯誤"
End If
Case 1
txtDisplay.Text = CStr(dblNum ^ 2)
End Select
'判斷是否為文本框中的數字加點
If Not txtDisplay Like "*.*" Then
txtDisplay.Text = txtDisplay.Text & "."
End If
End Sub
Private Sub cmdPoint_Click()
strNumber = strNumber & strPoint
strPoint = ""
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'使被按下的數字鍵的對應按鈕取得焦點
Select Case KeyCode
Case 48 To 57
cmdNumber(KeyCode - 48).SetFocus
Case 96 To 105
cmdNumber(KeyCode - 96).SetFocus
Case Else
'使按下的符號鍵對應的按鈕取得焦點
If KeyCode = 107 Or (Shift = vbShiftMask And KeyCode = 187) Then
cmdOperator(0).SetFocus
cmdOperator_Click (0)
ElseIf KeyCode = 109 Or KeyCode = 189 Then
cmdOperator(1).SetFocus
cmdOperator_Click (1)
ElseIf KeyCode = 106 Or (Shift = vbShiftMask And KeyCode = 56) Then
cmdOperator(2).SetFocus
cmdOperator_Click (2)
ElseIf KeyCode = 111 Or KeyCode = 191 Then
cmdOperator(3).SetFocus
cmdOperator_Click (3)
ElseIf KeyCode = 13 Then
cmdOperator(7).SetFocus
cmdOperator_Click (7)
ElseIf KeyCode = 8 Then
cmdGT.SetFocus
Call cmdGT_Click
End If
End Select
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'將合法的數據輸入到文本框
Select Case KeyAscii
Case 48 To 58
'調用數字鍵點擊處理程序
cmdNumber_Click KeyAscii - 48
KeyAscii = 0
Case 46
'調用小數點輸入
cmdPoint_Click
KeyAscii = 0
Case 13
'當敲擊回車時，不能觸發Form的 KeyUp 事件，因此在這里設置文本框的焦點
txtDisplay.SetFocus
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay.SetFocus
End Sub
Private Sub Form_Load()
strNumber = ""
strPoint = "."
intOperator = 7
End Sub
『肆』 傳奇架設腳本好了之後登陸器怎麼架設啊
您好,如果您對架設傳奇經驗還不是很豐富,我建議您使用自帶登陸器配置器的服務端來假設,這樣的話,配置出來的登陸器就不會出現引擎不兼容的情況,各引擎登陸器配製方法不盡相同,但是幾個最重要的操作步驟是相同的,埠一般設置為7000,如果您是想假設單機的伺服器,則IP地址要設置成127.0.0.1,如果您是想和朋友連接外網,則IP設置成您的網路IP地址,如果您在自己家裡假設,可以打開網路直接輸入「查IP」即可獲得您的IP地址。我建議您除了埠和IP之外一般不需要更多的調整,其他步驟直接「下一步」就好,等您架設成功並且逐漸熟悉架設傳奇的方法後也可以對其他配置做一些個性化的設置,希望對您有所幫助。
『伍』 單機傳奇,製作好的腳本的一鍵安裝就可以的來一套.帶登錄器，自己做GM
自己架設就可以了
更多內容請點擊我頭像查看更多資料
『陸』 請vbs腳本高手幫助編寫一個網頁自動登錄器
參考答案 看庭前花開花落，榮辱不驚，望天上雲卷雲舒，去留無意。
『柒』 跪求傳奇登陸器,本人想自己做個,傳奇登陸器,就是沒有腳本,哪為大哥級人物能,給個傳奇登陸器的腳本,謝謝
對於一個游戲,僅僅是技術和資金是絕對不夠的, 大家知道的仙劍版本, 憑的不僅是技術,還有的就是策劃,怎樣才能吸引人,怎樣才能留住人?玩家要的是什麼?怎麼去滿足? 現在仙劍版准備放棄後續版本的開發, 他們不明白,為什麼功能多了,玩起來方便了,但是卻越來越失去它的吸引力?
逍遙在西班牙准備開個網吧,同時著手仿盛大版本的開發,因為仙劍已經偏離的太遠了
對比了盛大的傳奇,光通的傳奇3,還有在光通以前最早流入中國的韓版傳奇3,傳奇世界,武易傳奇,夢幻傳奇,快樂傳奇
能夠吸引玩家的有兩點
一是裝備,地圖,怪物,人氣等,
二是最重要的,就是怪物的難度和經驗的設置
同時為了推廣游戲,必須控制客戶端的大小
各種裝備的設置原則
戰士,戰士裝備,特別是武器,要體現的是霸氣,用起來才爽。盛大里,屠龍是明顯具有這個特徵的。
法師,要的是絢麗,不僅僅是在魔法效果上,對於裝備上也要體現出來。
道士,要的是柔和,最好以藍色和海洋為基調
怪物的難度和經驗設置有幾個原則 1,要有層次性,幾級到幾級打什麼怪,這個界限要明顯 2,挑戰性和吸引性要結合,武易把挑戰性主要體現在怪物的血量上,特別是高級的怪物,動不動就幾千幾萬的血,打起來費勁,讓人容易打瞌睡。血可以少點,但是防和攻擊要合適。 3,經驗,如果籠統的按照多少倍,那就是個誤區,現在出現的一個問題就是前十多級都是一個怪就升上去了,而後面會出現找不到地方練級。最好是低級有低級的地方,高級也要有高經驗的地方。為了防止蹭經驗,可以將怪物的攻擊防禦都設置大,讓級別不夠的人根本沒辦法打。
4,好壞結合,比如同一個地方,既然有好怪物,當然也要來幾個讓人討厭的傢伙。比如豬洞里放點角蠅什麼的~~高級別的地方偶爾放點小怪物~~讓難度有層次,那麼多打了半天打不死的東西,偶爾打個一下就死的,調節一下神經也好~~
PK設置原則 1,自由性,想殺誰就殺誰,裝備牛,為的就是打架狠。但很多游戲為了保護新人,這也不能PK,那也不能打,最後讓牛的人只能站安全區炫耀,沒什麼意義。 2,限制性,打架可以,有專用地圖,不加PK值的,進去的人代表就是想找架打的,不要有什麼顧慮,殺就是了。但是,對於其他地圖,要限制PK,保護新人。所謂的保護,應該限制紅名的權利,讓他殺人受懲罰要比讓他打都打不上的好。 3,保護性,裝備不要掉太多,暴人比暴怪容易的話,誰還去打怪？主要暴葯就好了,裝備偶爾掉一兩個就夠了。
4,對於新人的保護,不要在地圖上限制不許PK,比如武易設置在比齊不許PK,新人上去,打了錢,結果被別人站上去了,又不能打,只能站著乾瞪眼~~最可氣的是,級別高的要是被新人欺負,那就冤枉了。
可以設置保護等級,設置保護時間,比如在在線時間累計24小時以內受保護,以後嘛,讓他碰運氣好了~
私服總體原則
1,既然私服跟官方設定不同,那麼既然可以增加自己的東西,就沒必要抱著盛大的東西不放。比如一些垃圾裝備,僅保留一點常用的就好了,其他能刪就刪,要那麼多沒用的東西干嗎？浪費資源而已,什麼傳統項鏈,什麼皮手套,能刪的就刪掉完了。這樣客戶端會小很多。
2,魔法問題,大家熟悉了盛大的魔法,效果盡量保留吧~比如雷電和火牆什麼的,可以按照傳奇3的來,畢竟效果差不多,但是對於其他的,效果沒必要變太多吧,拿龍卷風的效果替換冰咆哮,沒什麼意義啊,反而讓人感覺不倫不類,替換太多,也會增加客戶端的大小。
3,功能問題,增加結婚,師徒等還說的過去,發型變性等就有點沒什麼意義,至於祝福什麼的,就沒什麼用處,而名字變色,感覺就是垃圾功能,顏色都可以亂變,那麼紅名黃名灰名白名還有什麼意義？還有,完全可以增加好友列表功能,就如傳奇世界一樣,不是功能復雜就是好的,要增加,就要增加有用的,傳奇吸引人的一大特色就是容易上手。
4,負重的限制,高等級的法師,可以拿裁決,低等級就不行,拿裁決的法師是一種身份的象徵,證明我夠厲害,如果全部武器的負重要求都是0,那太沒意思了,到處都是道士法師拿戰士的武器,讓高級別的人少了很多炫耀的因素。
5,練級速度問題,剛開始10多級絕對不要出現一個怪就升上去的,盛大他們設置的經驗要求和怪物經驗都是經過仔細分析研究的,如果單純的按照100倍或者多少倍的經驗,就會出現經驗落差大的問題,所以,應該同時修改經驗上限,級別再好練,一個怪就升上去了,太沒意思~~
下面是個人的一點小建議
功能上以問情版為基礎,地圖上以仙劍其他版本為准
1,取消比奇地圖,更換為仙劍大陸,而土城不變。比奇地圖缺少吸引人氣的地方,而仙劍大陸同時附帶若干練級地圖,可以吸引人氣,同時,給新手一個最深刻的新鮮感。同時,開發雙城系統,兩個沙城,一個主,一個副,可以更增加團體PK的樂趣。
2,保留盛大所有地圖,包括豬的1到4等,如果什麼地圖都可以傳送,那也就沒意思了,有的時候,讓玩家從入口開始跑吧~~~
3,新人保護,僅僅對於沒有能力逃跑,一下就可以被秒的新人一點保護就好了,畢竟新人時期是短暫的,如果為了保護新人,而對老玩家有太多限制,那會減少老玩家的忠誠度。
4,NPC,取消安全區排排站的NPC,將他們分散到各個民居里,讓大家在城裡跑跑也好,如果在安全區里什麼功能都有了,還要那個城市做什麼啊~
5,刪除沒用的裝備,這個對客戶端大小影響很嚴重
6,土城客棧一層做為安全區,如果萬事通取消,那麼客棧一層也是聚集玩家的地方。
7,開內掛,全面封殺外掛,外掛不公平是造成人員流失的一個重大原因。特別是掛機和暗殺等
關於界面
1,主界面,最好要簡單,而且要留下較大的游戲區,而且風格要符合游戲內容。標准來說傳奇世界的那個帶金黃色龍頭的界面就顯得比較死板,而傳奇3的界面則比較適合。
2,具體功能界面,以測試時的問情版來說,儲存和出售物品的關閉按紐最好如盛大的一樣,在放物品區的旁邊,那麼使用起來比較方便,對於關閉按紐,最好在滑鼠方便點到的地方。
3,主功能界面,最好按照玩家點擊的頻率,以按紐到屏幕中自己控制的人物的直線距離為標准,使用頻率越高的,距離應該是越短。
對於裝備也有幾個原則
1,有層次性,跟怪物一樣,裝備也要分幾個層次
不用每個級別的東西就加一點屬性,有的套裝可以體現跳躍性。比如4級會員的裝備和3級的比可能就相差1點的屬性,那麼黃金的和一級的比,就可以相差3點
2,簡約性,麻痹護身等特殊裝備,只需要個別出一個多了點攻,或者是防的就好了,沒必要那麼多什麼探測麻痹護身相互結合的東西,也不要讓特殊戒指的功能太強,一個麻痹加上10點的攻擊,那也太好了點,1點的攻擊就夠了~特殊屬性和普通屬性,要讓玩家權衡取捨,如果什麼都有了,那也沒意思了。
3,條理性,裝備不要太繁亂,大概有個套裝就好了,其他的諸如一次性的還有一些同一層面上擴展出來的東西大可以不要,偶爾有個一次性的裝備增加點趣味就好了~沒必要弄太多。較少被玩家使用的裝備,如皮質手套等直接刪掉就好了,節省資源。
『捌』 用VB製作一個簡易的網頁登陸器
你是直接在VB中載入登錄窗口進行登錄，還是在瀏覽器中做插件進行登錄？
在VB中進行登錄：
'函數功能：登陸網頁
'輸入參數：WB:webbrower控制項，sURL：網址，OverTime：超時時間，UserName：用戶名，UserPWD：用戶密碼，InPutName：用戶名輸入框，InPutPWD：密碼輸入框，LoginFrom：登陸窗體，BtnName：登陸按鈕名字
'輸出參數：無
'返回值：True：成功，false：失敗
'******************************************************************
PublicFunctionLoginUrl(WBAsWebBrowser,sURLAsString,OverTimeAsLong,UserNameAsString,UserPWDAsString,InputNameAsString,InputPWDAsString,LoginFromAsString,BtnNameAsString)AsBoolean
OnErrorGoToerrorHandle
bHtmlFlag=False
SetsDocument=WB.Document
sDocument.getElementById(InputName).Value=UserName
sDocument.getElementById(InputPWD).Value=UserPWD
IfBtnName=""Then
sDocument.Forms(LoginFrom).submit
Else
sDocument.getElementById(BtnName).Click
EndIf
IfHtmlOverTime(OverTime,sURL)=1Then'判斷超時
LoginUrl=False
InsertLog"登陸網址："&sURL&"失敗！",1
ExitFunction
EndIf
LoginUrl=True
ExitFunction
errorHandle:
InsertLog"錯誤號:"&Err.Number&"錯誤描述:"&Err.Description,1
Debug.PrintErr.Description
Err.Clear
EndFunction
'******************************************************************
'創建日期：2008-10-28
'函數功能：判斷網頁打開是否超時
'輸入參數：sTime：超時時間
'輸出參數：無
'返回值：0:成功，1：失敗
'******************************************************************
PublicFunctionHtmlOverTime(sTimeAsLong,sURLAsString)AsLong
t=GetTickCount
DoUntilbHtmlFlag=True
DoEvents
IfGetTickCount-t>sTimeThen
InsertLog"打開網址："&sURL&"失敗！",1
HtmlOverTime=1
ExitFunction
EndIf
Loop
HtmlOverTime=0
EndFunction
如果用插件的 復雜一些，可以查找olelib的知識
'引用olelib實現IObjectWithSite介面來獲得IE對象
Implementsolelib.IObjectWithSite
'
PrivateWithEventsm_IEObjAsInternetExplorer
Attributem_IEObj.VB_VarHelpID=-1
Privatem_siteAsolelib.IUnknown
PrivatesDocAsNewMSHTML.HTMLDocument
PrivateSubIObjectWithSite_GetSite(riidAsolelib.UUID,ppvSiteAsstdole.IUnknown)
m_site.QueryInterfaceriid,ppvSite
EndSub
PrivateSubIObjectWithSite_SetSite(ByValpUnkSiteAsstdole.IUnknown)
Setm_site=pUnkSite
Setm_IEObj=pUnkSite
EndSub
'========================================================
'網頁載入完成後要處理
'
'
'========================================================
PrivateSubm_IEObj_DocumentComplete(ByValpDispAsObject,URLAsVariant)
OnErrorResumeNext
DimstrHTMLAsString
DimstrScriptAsString
DimscDocAsNewMSHTML.HTMLDocument
DimsHeadAsIHTMLHeadElement
DimsElementAsIHTMLElement
'獲取Script腳本內容
strScript=getHTMLScript
'MsgBoxURL
IfInStr(URL,"zs/browseShenbao.do?formId=")>0Then
'獲取添加按鈕的html語句
strHTML=GetIni("HTML","String1",App.Path&"HtmlMark.ini")
SetsDoc=m_IEObj.Document
SetscDoc=sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
SetscDoc=scDoc.frames("mainFrame").Document
'獲取HEAD頭的對象
SetsHeads=scDoc.getElementsByTagName("HEAD")
SetsHead=sHeads(0)
'創建script的節點
SetsElement=scDoc.createElement("script")
sElement.setAttribute"language","JavaScript"
sElement.setAttribute"text",strScript
'把script的節點插入到head中
CallsHead.insertBefore(sElement,Null)
'把按鈕的html語句插入到頁面中
scDoc.body.innerHTML=scDoc.body.innerHTML&strHTML
EndIf
'
IfInStr(URL,"/initArchive.do")>0Then
SetsDoc=m_IEObj.Document
'獲取添加按鈕的html語句
strHTML=GetIni("HTML","String2",App.Path&"HtmlMark.ini")
SetscDoc=sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
SetscDoc=scDoc.frames("mainFrame").Document
'獲取HEAD頭的對象
SetsHeads=scDoc.getElementsByTagName("HEAD")
SetsHead=sHeads(0)
'創建script的節點
SetsElement=scDoc.createElement("script")
sElement.setAttribute"language","JavaScript"
sElement.setAttribute"text",strScript
'把script的節點插入到head中
CallsHead.insertBefore(sElement,Null)
'把按鈕的html語句插入到頁面中
scDoc.body.innerHTML=scDoc.body.innerHTML&strHTML
EndIf
'檔案查詢頁面
IfInStr(URL,"/showDangAn.do?")>0Then
SetsDoc=m_IEObj.Document
'獲取添加按鈕的html語句
strHTML=GetIni("HTML","String3",App.Path&"HtmlMark.ini")
'MsgBox"strHTML---------"&strHTML
'MsgBoxsDoc.body.innerHTML
SetscDoc=sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
SetscDoc=scDoc.frames("mainFrame").Document
'MsgBoxscDoc.body.innerHTML
'獲取HEAD頭的對象
SetsHeads=scDoc.getElementsByTagName("HEAD")
SetsHead=sHeads(0)
'創建script的節點
SetsElement=scDoc.createElement("script")
sElement.setAttribute"language","JavaScript"
sElement.setAttribute"text",strScript
'把script的節點插入到head中
CallsHead.insertBefore(sElement,Null)
'把按鈕的html語句插入到頁面中
scDoc.body.innerHTML=scDoc.body.innerHTML&strHTML
EndIf
EndSub
『玖』 如何編寫腳本自動登錄網頁
python，網上登陸網頁的代碼很多。個人很喜歡用python，所以推薦