‘壹’ 脚本游戏制作大师怎么做游戏界面，比如说怎么做一个单机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，所以推荐