https://www.myziyuan.com/
- 外网
- 社工库查询方法守夜人社工库2016.08.27更新1566人看过如何使用社工库查询到自己百想查询到的工具原料电脑浏览器方法/步骤分步阅度读1/4打开浏览器，查询守夜人社工库并打开2/4官网首页，点击专免费查询3/4在请输入关键词下面，输入你想查询的即可想要看到更多属数据可以注册登录后查询4/4如果需要下载数据，点击左上角的数据挖掘中心注意事项耐心等待
- 2021-02-23 17:00:01
- 萨满祭司
- 通常要安装数据库比如sqlserver 然后还原 你下载的地方应该说了是什么类型的数据库
- 2021-02-11 23:04:57
- ee
- 求一个非常简单的记事本源码!及制作教程！,Private Sub BG11_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub BG12_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub BG13_Click()RichTextBox1.SelText = Clipboard.GetTextEnd SubPrivate Sub BG14_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End SubPrivate Sub BG15_Click()s = InputBox("请输入要查找的字、词：", "查找内容")RichTextBox1.Find sFindEnd SubPrivate Sub GS11_Click()CommonDialog1.Action = 4RichTextBox1.Font.Name = CommonDialog1.FontNameEnd SubPrivate Sub GS12_Click()CommonDialog1.ShowColorRichTextBox1.BackColor = CommonDialog1.ColorEnd SubPrivate Sub RichTextBox1_Change()End SubPrivate Sub ST11_Click()If Toolbar1.Visible = True ThenST11.Checked = FalseToolbar1.Visible = FalseElseST11.Checked = TrueToolbar1.Visible = TrueEnd IfEnd SubPrivate Sub ST12_Click()If StatusBar1.Visible = True ThenST12.Checked = FalseStatusBar1.Visible = FalseElseST12.Checked = TrueStatusBar1.Visible = TrueEnd IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1: WJ11_ClickCase 2: GS11_ClickCase 3: BG15_ClickCase 4: BG11_ClickCase 5: WJ12_ClickCase 6: WJ15_ClickEnd SelectEnd SubPrivate Sub WJ11_Click()RichTextBox1.Visible = TrueRichTextBox1.Text = ""FileName = "未命名"Me.Caption = FileNameEnd SubPrivate Sub WJ12_Click()RichTextBox1.Visible = TrueCommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.Text = ""FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameEnd SubPrivate Sub WJ13_Click()RichTextBox1.Text = ""RichTextBox1.Visible = FalseEnd SubPrivate Sub WJ15_Click()CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3))FileName = CommonDialog1.FileNameSelect Case FiTypeCase "txt"RichTextBox1.SaveFile FileName, rtfTextCase "rtf"RichTextBox1.SaveFile FileName, rtfRTFCase "*.*"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = "记事本：" & FileNameEnd SubPrivate Sub WJ17_Click()EndEnd Sub
- 2021-02-11 23:04:57
开通会员