本文主要是介绍电脑原神B服官服切换脚本(部分重写,此后不必每个版本更新,有问题请反馈),希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
电脑原神(此版本无需跟随更新)
此版本无需跟随更新
此版本无需跟随更新
最终版,有问题请反馈
最新脚本源码移步github
https://github.com/yjrqz777/Genshin-Impact-yuanshen-_mihoyo_or_bilibili_vbs
私服脚本移步
私服点我
=本人原创!==
有问题留言吧,QQ加的人太多了,问题太杂
简单问题大家一起解决
链接:点我跳转
https://yjrqz.lanzoui.com/b01oi27oh
密码:8za8
特供版请不要主动使用、特供版请不要主动使用、特供版请不要主动使用
先放原图:
好了;不再赘述了,简单说一下原理:
第一:配置文件,我的脚本是通过修改配置文件,来切换服务器启动的
第二:我用的是微软()自带脚本工具后缀为==.vbs==
第三:简单告知一下配置文件是后缀为==.ini==的文件
源码如下:
'time:2021.8.6-18.54--2021.8.6-19.34
'author:YJRQZ777dim fz
set fz = CreateObject("Scripting.FileSystemObject")
call fz.CopyFile("config.ini", "config.ini7") '两个参数的文件名部分可以不同
set fz = nothingdim fso, f
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("config.ini", 2, false) '第二个参数 2 表示重写,如果是 8 表示追加
'f.Write("写入内容")
'f.WriteLine("写入内容并换行")
'f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车)msgbox "作者通行证:503250004"
msgbox "B服选择:1!"&chr(10)&"官服选择:2!"
dim a
a=0
do while a=0
a = inputbox ("b服选择:1!"&chr(10)&"官服选择:2!"&chr(10)&"请不要输入其他东西!"&chr(10)&"有问题联系qq:3210551161"&chr(10)&"后缀为.ini7的是备份文件."&chr(10)&"出现其他问题可重命名(删除后缀上的“7”)文件恢复备份","电脑原神服务器修改1.0")
Loop
IF a=1 Then
f.WriteLine("[General]")
f.WriteLine("channel=14")
f.WriteLine("cps=bilibili")
f.WriteLine("sub_channel=0")
f.WriteLine("game_version=2.0.0")
f.WriteLine("sdk_version=")
msgbox "成功修改为B服"
ElseIf a=2 Then
f.WriteLine("[General]")
f.WriteLine("channel=1")
f.WriteLine("cps=mihoyo")
f.WriteLine("sub_channel=1")
f.WriteLine("game_version=2.0.0")
f.WriteLine("sdk_version=")
msgbox "成功修改为官服"
else msgbox "我不理解!"
End If
msgbox "感谢使用!"
f.Close()
set f = nothing
set fso = nothing
这篇关于电脑原神B服官服切换脚本(部分重写,此后不必每个版本更新,有问题请反馈)的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!