- 博客(1)
- 资源 (6)
- 收藏
- 关注
原创 Linux下批量检察tomcat服务器是否运行shell编程
Linux下批量检察tomcat服务器是否运行脚本#!/bin/bash #定义并发线程数,需根据vps配置进行调整。 rm -fr result.log PORT=80 #开始多线程循环检测 #for ip in $(cat ip.list) for ip in {178..205} do #curl抓取网站http状态码 code=`curl -o /dev/nu
2016-01-11 17:34:51 803
vb学生信息管理系统
Option Explicit
Public OK As Boolean
Dim miCount As Integer
Private Sub Form_Load()
OK = False
miCount = 0
End Sub
Rem 用户登录
Private Sub Command1_Click()
Dim n As String
If Text1.Text = "antengjiao" And Text2.Text = "654321" Then
Unload Form2
Form3.Show
Else
If (Len(RTrim(Text1.Text)) = 0) Then
n = MsgBox("请输入用户名!", , "提示")
Else
If Text1.Text <> "Qiaoyuanyuan" And Text1.Text <> "123456" Then
n = MsgBox("用户不存在或密码错误,请重新输入!", , "提示")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End If
End If
Text1.Text = ""
Text2.Text = ""
miCount = miCount + 1
If miCount = 3 Then
n = MsgBox("错误三次,系统自动退出!", , "错误提示")
End
End If
End Sub
Rem 退出登录界面
Private Sub Command2_Click()
Unload Form2
Form1.Show
End Sub
2010-12-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人