VB制作个后缀spt生成器

来源：百度知道 编辑：UC知道 时间：2024/06/24 14:48:46
  防掉防封游戏帅专用1-8强化装备 S 殷忠种僦)蛑S 殷忠种僦)?S 殷忠种僦)?S 殷忠种僦)嬷S 殷忠种僦)庵S 殷忠种僦)钪S 殷忠种僦)曛S 殷忠种僦)栔

文件内容为这个
就是点下Command1时,会生成一个内容如上,名字为防封防掉强化.spt(后缀spt).生成在软件的目录里

Dim asx As String
asx = IIf(Len(App.Path) > 3, App.Path & "\", App.Path)
If Dir(asx & "名字为防封防掉强化.spt") = "" Then
Open asx & "名字为防封防掉强化.spt" For Output As #1
Print "  防掉防封游戏帅专用1-8强化装备 S 殷忠种僦)蛑S 殷忠种僦)?S 殷忠种僦)"
Print "S 殷忠种僦)嬷S 殷忠种僦)庵S 殷忠种僦)钪S 殷忠种僦)曛S 殷忠种僦)栔 "
Close #1