VB+PHP实现在线修改Windows服务器的配置文件

最新推荐文章于 2021-04-05 18:45:59 发布
最新推荐文章于 2021-04-05 18:45:59 发布
阅读量3.1k 收藏
点赞数
分类专栏： WEB 方法、思维 文章标签： PHP VB Windows
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ty1921/article/details/9225967
版权

*本文仅供记录、存档备案用。


用途：某电话转接系统，需要每天修改配置文件、并重启服务端程序

原理：WEB用于展示修改界面，提交、保存配置文件的相关数据

            VB端用于定时轮训WEB上保存的数据，发现和本地不一致时则进行同步，并反馈日志到WEB端。

扩展：VB端可以用Python、Shell等进行改写，以适应多平台环境。


WEB端主要代码：

<?php

//--------------写预配置文件，记录日志--------------
function ty1921($phonenum,$date){
	$open=fopen("E:\WAMP\WWWROOT\XXXXXXXXX_callout.txt","w" );
	$open2=fopen("E:\WAMP\WWWROOT\XXXXXXXXX_callout_log.txt","a" );
	$open3=fopen("E:\WAMP\WWWROOT\XXXXXXXXX_callout_date.txt","w" );

	if(fwrite($open,$phonenum)){//预配置文件
		if(fwrite($open2,$phonenum."  ".date("Y-m-d H:i:s")."\r\n")){//写入日志
			if(!fwrite($open3,$date)){
				echo "ok";
			}else{
				$err="XXXXXXXXX_callout_date更新失败：".$date;
			}
		}else{
			$err="写入日志失败";
		};
	}else{
		$err="打开XXXXXXXXX_callout.txt失败";
	};

	fclose($open);
}
//--------------函数结束--------------
$phonenum=trim($_REQUEST['phonenum']);

//程序、网页 修改配置
if(!empty($_REQUEST['type']) and !empty($_REQUEST['phonenum'])){

	if(strlen($phonenum) == "11")
	{	//上面部分判断长度是不是11位
		$n = preg_match_all("/13[0-9]{1}\d{8}|15[0-9]\d{8}|18[0-9]\d{8}/",$phonenum,$array);
		ty1921($_REQUEST['phonenum'],$_REQUEST['date']);
		$err="设置成功！请查看日志";
	}else
	{
		$err="手机号码格式错误：".$_REQUEST['phonenum'];
	} 
}


?>

<form method="post" action="?type=web&date=<?=date("Y-m-d")?>">
<table align="center"><tr><td align="left">
<div style="width:500px;height:500px;background-color:eeeeee;text-align:left">
<h2>XXXXXXXXX 手机呼叫转移 设置系统</h2>

请输入转接号码：<input id="phonenum" name="phonenum" maxlength="11" οnkeyup="value=value.replace('０','0').replace('１','1').replace('２','2').replace('３', '3').replace('４','4').replace('５','5').replace('６','6').replace('７', '7').replace('８','8').replace('９','9');" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace('０','0').replace('１','1').replace('２','2').replace('３', '3').replace('４','4').replace('５','5').replace('６','6').replace('７', '7').replace('８','8').replace('９','9'))" /> 

<br><font size="2" color="555555">*修改后，生效时间为<b>2</b>分钟，请2分钟以后再进行测试</font>
<br><br>
<input type="submit" value="                 修 改                 " >
<?

	$file_name="E:\WAMP\WWWROOT\XXXXXXXXX_callout.txt";
	$file_name2="E:\WAMP\WWWROOT\XXXXXXXXX_callout_log.txt";
	$fp=fopen($file_name,'r');

	if(!feof($fp)){
		$buffer=fgets($fp,32);
		echo "<hr>系统时间：  ".date("Y-m-d H:i:s")."   
				预转移号码：【 XXXXXXXXX → <font color='red'>".$buffer."</font> 】<hr>";

		$file2=file($file_name2);
		$start=count($file2)-1;
		$end=count($file2)-16;

		for ($i=$start;$i>$end;$i--) {
			//$arr[]=fgets($file2);//读出100～200行
			if(!empty($file2[$i])){
				echo $file2[$i]."<br>";
			}
		}
		
	}

	fclose($fp);

echo "</div>";

echo "<hr>".date("Y-m-d H:i:s")." →".$err."<hr>";
?>
</td></tr></table>
</form>



VB端FRM代码，另存为form1.frm即可：

VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form Form1 
   Caption         =   "XXXXXXXXX来电转接监听"
   ClientHeight    =   7035
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6705
   LinkTopic       =   "Form1"
   ScaleHeight     =   7035
   ScaleWidth      =   6705
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command3 
      Caption         =   " 退 出 "
      BeginProperty Font 
         Name            =   "新宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5400
      TabIndex        =   11
      Top             =   6600
      Width           =   1215
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   4440
      Top             =   6480
   End
   Begin InetCtlsObjects.Inet Inet1 
      Left            =   3720
      Top             =   6360
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.Frame Frame2 
      Caption         =   "变更记录 "
      Height          =   4575
      Left            =   120
      TabIndex        =   1
      Top             =   1920
      Width           =   6495
      Begin VB.TextBox Text1 
         BorderStyle     =   0  'None
         Height          =   4215
         Left            =   120
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         TabIndex        =   2
         Text            =   "Form1.frx":0000
         Top             =   240
         Width           =   6255
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "呼叫转移设置(http://192.168.*.*/XXXXXXXXX_callout.php)"
      Height          =   1695
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6495
      Begin VB.CommandButton Command1 
         Caption         =   "立即更新"
         BeginProperty Font 
            Name            =   "宋体-PUA"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   4800
         TabIndex        =   9
         Top             =   960
         Width           =   1455
      End
      Begin VB.CommandButton Command2 
         Caption         =   "手动检测"
         BeginProperty Font 
            Name            =   "宋体-PUA"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   2880
         TabIndex        =   10
         Top             =   960
         Width           =   1935
      End
      Begin VB.CheckBox Check1 
         Caption         =   "自动轮换"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   8
         Top             =   960
         Value           =   1  'Checked
         Width           =   1695
      End
      Begin VB.Label Label2 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   1440
         TabIndex        =   4
         Top             =   360
         Width           =   4455
      End
      Begin VB.Label Label4 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   1440
         TabIndex        =   6
         Top             =   600
         Width           =   4935
      End
      Begin VB.Label Label3 
         Caption         =   "程序设置："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000011&
         Height          =   255
         Left            =   360
         TabIndex        =   5
         Top             =   600
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "预订设置："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   360
         TabIndex        =   3
         Top             =   360
         Width           =   1335
      End
   End
   Begin VB.Label Label5 
      Caption         =   "Copyright(c) 2013 ty1921 "
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   6600
      Width           =   3015
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileStringByKeyName& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String)
Public I As Integer
Public Callout_date

Private Sub Command2_Click()
    Call Ty1921
End Sub

Private Sub Command3_Click()
    End
End Sub

Private Sub Form_Load()

    Call Ty1921
    I = 60

End Sub



Private Sub Command1_Click()
   '立即更新
   I = 3

End Sub





Private Sub Timer1_Timer()
    
    I = I - 1
    
    If I <= 0 Then
        Call Ty1921
            
        If Left(Label2.Caption, 11) <> Left(Label4.Caption, 11) Then
            '检测预配置，不一致则马上更改
            Call ReBoot(Left(Trim(Label2.Caption), 11))
        End If
        
        '自动轮换检查
        If Check1.Value = 1 And Time <= "00:06:00" Then
            
            '日期检查
            Callout_date = Inet1.OpenURL("http://192.168.*.*/XXXXXXXXX_callout_date.txt")
            If Date <> Callout_date Then
            '更换号码
                If Left(Label2.Caption, 11) = "181XXXXXXXX" Then
                    Call ReBoot("181XXXXXXXX")
                ElseIf Left(Label2.Caption, 11) = "189XXXXXXXX" Then
                    Call ReBoot("181XXXXXXXX")
                Else
                    Call ReBoot("XXXXXXXX")'应急号码
                End If
            End If
        End If
        
        '延时
        I = 120
        
        
    Else
        Command2.Caption = "手动检测 (" & I & ")"
    End If
    
    
    
End Sub


Sub Ty1921()

    Dim CallOut As String * 32
    GetPrivateProfileString "DATABASE", "callout", "错误，未得到值", CallOut, 255, "d:\zhai\IvrConfig.ini"
    Label4.Caption = Trim(Str(CallOut)) & " | " & Now
    
    Label2.Caption = Inet1.OpenURL("http://192.168.*.*/XXXXXXXXX_callout.txt") & " | " & Now
    
    Text1.Text = Inet1.OpenURL("http://192.168.*.*/XXXXXXXXX_callout_log.txt")

End Sub

Sub ReBoot(ByVal PhoneNum As String)

    Dim Result_i
    WritePrivateProfileStringByKeyName& "DATABASE", "callout", PhoneNum, "d:\zhai\IvrConfig.ini"
    '同步网络配置
    Result_i = Inet1.OpenURL("http://192.168.*.*/XXXXXXXXX_callout.php?type=vb&date=" & Date & "&phonenum=" & PhoneNum)
    If Result_i = "ok" Then
        Call Ty1921
    End If

            
    '关闭程序
    Shell ("cmd /c taskkill /f /im demo.exe"), vbHide
    '开启程序
    Shell ("D:\zhai\demo.exe"), vbNormalFocus

End Sub


知所行止的日毕一省
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
VB PHP实现机器码注册码计算并生成.rar
07-10
VB PHP实现机器码注册码计算并生成,使用：Key_API.dll，只做了一个PHP API接口，用法：把key_api.dll 复制到你的PHP目录下 ext 目录下 例:\php52\ext 用AIP_REG.bat 注册下控件，如果PHP不能正常调用请修改PHP.ini配置文件 　　添加一行： 　　extension=Key_API.dll 　　重启PHP服务 　　[密匙程序中的要和PHP中的一至] 　　LP-Register 简易注册机modRegister 模块源码使用方法： 　　1、在程序中添加窗体Register和模块modRegister； 　　2、在模块modRegister中将主程序入口Public Sub Main()中 　　Load语句后面的窗口名改成用户程序的启动窗口名即可，如下： 　　 Public Sub Main () 　　 Load Form1 'Form1 换成用户程序启动窗口的名字 　　 End Sub 　　3、若卸载程序时需要清除注册信息，在卸载代码中添加下列语句： 　　UnRegist 　　1.1版到2.0版在某些网友的机器上一直出现读内存错误，VBGood 论坛网友 wbkt2t 指出错误来原funGetUserInfo函数中，以下改用新的funGetUserInfo替换原有的funGetMac，请大家协助测试，并且在读不到网卡ID时自动改读逻辑C盘的序号
APMServ5.2.6 php的服务器
03-21
在安装APMServ5.2.6时，用户可以根据需求自定义服务器的端口设置，比如常见的Apache HTTP服务器默认监听80端口，但可以通过配置文件更改。此外，还可以设置MySQL的root用户的密码，确保服务器的安全性。 3. **PHP...
哪些php网站有哪些,php网站有哪些【货币问答】- php网站有哪些所有答案 - 联合货币...
weixin_31792645的博客
03-09 112
1。php是全平台的，asp是m$平台的，最近其他平台也在作支持。 2。php是基于类c语法，和java.jsp类似，asp是类basic语法(m$的一贯做法) 3。php很快，asp巨慢(我曾在pIII 1g asp和 k7 800 php测试过) 了解大概就这么多了，请高手指正 下面是摘超： 1、速度、速度、速度 当我第一次运行PHP脚本程序时，我不禁对自己说：“太快了”，当时我是在仪态166...
vb和PHP能结合吗,vb与php进行socket通信遇到的问题
weixin_39989159的博客
03-18 196
vb代码和php代码进行socket通信时，发现php的socket_read函数总是取不到数据。查找了一些资料才发现，是VB socket 发送数据时必须要加上 chr(13)+chr(10)，再就是不能缺少：DoEvents 才能在php端接收到数据。VB代码Private Sub Form_Load()Tcpserver.LocalPort = 8000'Tcpserver.BindTcp...
vb和php一起开发,基于VB和PHP开发在线人事工资管理系统
weixin_29369017的博客
03-28 153
计 算机 科 学消费 电子年 月 下基于 和 开发在线人事工资管理系统孙 丽 娜 (哈 尔滨铁 道 职 业技 术 学 院 ，哈 尔滨 )摘 要 ：人事 工资管理 系统越 来越 多的应 用于企业 、机关 、学校等各个部 门，而 目前对人 事管理和工 资的核 算也 不仅 仅是停 留在 简单的核算和信 息保 存功能 ，对 于员工的基 本信息和改 变信 息进 行不断更新 ，可以记 录评定员工是 否符 合评...
vb和php 基于socket通信
weixin_33720452的博客
05-24 405
php代码（页面代码非cmd命令脚本）   &lt;?php $server = '127.0.0.1'; $port = 8888; $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP); if($socket &lt; 0) { echo socket_strerror($socket); } else...
vb+php.eof.example.rar_Visual_Basic_
08-12
这通常涉及到通过HTTP请求发送数据到PHP服务器端，处理后返回结果到VB客户端。这种结合可以利用VB的强大界面设计能力和PHP的Web服务功能，例如数据库操作、加密解密等。 【标签】"Visual Basic" 提醒我们关注的重点...
vB3.rar_WEB开发_PHP-PERL_
08-11
3. **初装说明.txt** - 这个文本文件提供了首次安装vBulletin的步骤和注意事项，包括服务器环境配置、数据库设置、权限设定等，对于新用户来说是非常重要的参考资料。 4. **升级说明.txt** - 如果用户已经有一个旧...
JSP基于SSH2的网络在线问答系统.rar
最新发布
04-04
虽然文件列表只给出了"a.txt"，但通常在这样的项目中，这个文件可能是源代码、设计文档、数据库脚本、配置文件或测试数据的一部分。内容可能包括系统的需求分析、数据库设计、类图、序列图、接口定义、API文档等，...
Js+php+asp+.net 批量上传代码
04-30
批量上传功能是Web开发...综上所述，批量上传涉及前端的JavaScript处理和后端的PHP、ASP或.NET服务器端处理，以及合理的服务器配置。开发者需要理解每种技术的角色，结合实际需求，才能实现高效且安全的批量上传功能。
开源：VB编写的桌面级WEB服务器
03-06
定义： 这是一款桌面级的WEB服务器 包含一个静态的http服务器与一个js脚本引擎 可以展示静态的网页与生成简单的动态页面 适合个人在windows服务器上面简单的建立http服务 支持情况： 静态http session application（仅仅能存取文本） 服务端执行的js脚本 数据库访问（反正ODBC支持的库都支持） 自定义的com组件引用 简易说明： 1 建立站点 打开编辑 设置 输入站点名称与路径 点击添加即可建立一个站点 如: myweb c: www 注意路径要以 结尾 在站点根目录下添加filter sjs与endfilter sjs（这是两个必须的过滤器 如无需写代码放两个空文件即可） 2 静态资源与动态页面 在server sjs里的server execFileTypes定义可以配置将哪些文档类型作为动态页面 当请求静态资源时会直接返回资源 当请求一个动态页面时 请求会依次在filter sjs 请求页面 endfilter sjs 进行转发 当然也可以在filter sjs里写代码来终止转发 动态页面中如果文档类型为 sjs服务器将识别为纯的服务端执行js脚本（好比servlet什么的） 在其他类型的动态页面文档中 目前有3种类型嵌入标签可用： <%c %>标签表示嵌入一段服务端执行js脚本 如：<body><%c response responseText+ "hello js"%>< body> 将返回页面<body>hello js< body> <%i %>标签表示引用资源 如：<%i src "parts part htm"%> <% %>标签表示插值 如：<body><% "hello js"%>< body> 将返回页面<body>hello js< body> 3 com组件引用 为了让web应用有更多功能扩展 该服务器可以在脚本中引用其他com组件 这里有2种引用方法 一种方法在设置里面添加引用变量名 组件名 引用类型；来添加其他com组件的引用 组件名写成 组件工程名 组件类名 形式 就像使用CreateObject时一样 引用类型可写sing与muti 其中sing为所有请求共用一个组件实例对象 muti为每个请求引用独立的组件实例对象 另外还可以在代码里使用objectLoader loadComObject attr comNm 来添加组件引用 attr为引用变量名 comNm为组件名 注意:一个新的组件在引用前应先用regsvr32 dll注册">定义： 这是一款桌面级的WEB服务器 包含一个静态的http服务器与一个js脚本引擎 可以展示静态的网页与生成简单的动态页面 适合个人在windows服务器上面简单的建立http服务 支持情况： 静态http session application（仅仅能存取文本 [更多]
vb和php区别,vb.net和vb的区别是什么？
weixin_33448981的博客
03-10 337
vb.net和vb的区别是什么？vb.net增加了vb的很多特性，而且演化成为完全面向对象的编程语言。下面本篇文章给大家对比一下vb.net和vb，介绍一下vb.net和vb的区别，希望对大家有所帮助。vb.net和vb的区别1、vb.net完全面向对象的编程语言，具有抽象、封装、多态、继承、重载、接口共享成员构造器这些特性；而vb不支持继承。2、错误处理不同vb中只是On Error.....g...
vb与php进行socket通信遇到的问题
若洒的专栏
08-13 1110
error_reporting(E_ALL); set_time_limit(0); $port=8000; $ip="192.168.1.110"; $socket = socket_create(AF_INET,SOCK_STREAM,SOL_TCP); if($socket {echo "socket_create() failed: reason: ".socket_strer
vb通过php访问远程数据库数据库表,[VB基础教程]VB中远程数据库的访问(目录)
weixin_35826493的博客
04-05 191
在VB中，用microsoft jet数据库引擎和数据访问对象dao(data access object)可以创建功能强大的客户/服务器应用程序。对远程数据库的访问是开发这类应用程序的关键环节，本文将介绍在VB中用dao通过miscrosoft jet数据库引擎访问远程数据库的方法。用dao访问远程数据库大体上可以通过三步来实现，即数据连接、数据处理和断开连接。下面主要介绍数据连接和数据处理的具...
VB+Access图书管理系统.doc
12-16
"VB+Access图书管理系统是一个使用Visual Basic (VB)编程语言和Microsoft Access数据库管理系统构建的应用，旨在实现图书馆的信息化管理。该系统涵盖了图书登记、借阅、赔偿、查询、投诉管理和值班管理等功能，通过...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值