Foxwx微信公众号管理软件---同心软件 -以高级编程语言进行微信公众号管理,我们一直在努力!

校验姓名字段(只能汉字或大写字母),判断是否含有小写字母或非法字符如何校验

校验字符串一例

*校验姓名字段(只能汉字或大写字母),判断是否含有小写字母或非法字符如何校验

*汉字10进制区间 45217--63486

*大写字母10进制区间 65-90

CLEAR 

?CHKHZ("1张a@三B Cd") &&返回值5,即串中有不符合条件的字符为5个

FUNCTION CHKHZ

     LPARAMETERS Cstr

2018年6月23日 | 发布:admin | 分类:程序开发 | 评论:0

返回外网IP

Function cAdd

Declare   Long      URLDownloadToFile In URLMON.Dll Long, String, String, Long, Long

Declare   Integer   DeleteUrlCacheEntry In wininet.Dll String

2018年6月23日 | 发布:admin | 分类:程序开发 | 评论:0

js 脚本去除 空格 回车 换行


function iGetInnerText(testStr) {        var resultStr = testStr.replace(/\ +/g, ""); //去掉空格
        resultStr = testStr.replace(/[ ]/g, "");    //去掉空格
        resultStr = testStr.replace(/[\r\n]/g, ""); //去掉回车换行
        return resultStr;
    }


2018年6月6日 | 发布:admin | 分类:HTML5 | 评论:0

ShellExecute 研究

 Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
 

有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。CreateProcess因为使用复杂,比较少用。
WinExec主要运行EXE文件。如:WinExec(‘Notepad.exe Readme.txt’, SW_SHOW);
ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。
标准用法
ShellExecute函数原型及参数含义如下:
function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer): HINST; stdcall;
●hWnd:用于指定父窗口句柄。当函数调用过程出现错误时,它将作为Windows消息窗口的父窗口。例如,可以将其设置为应用程序主窗口句柄,即Application.Handle,也可以将其设置为桌面窗口句柄(用GetDesktopWindow函数获得)。
●Operation:用于指定要进行的操作。其中“open”操作表示执行由FileName参数指定的程序,或打开由FileName参数指定的文件或文件夹;“print”操作表示打印由FileName参数指定的文件;“explore”操作表示浏览由FileName参数指定的文件夹。当参数设为nil时,表示执行默认操作“open”。
●FileName:用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。
●Parameters:若FileName参数是一个可执行程序,则此参数指定命令行参数,否则此参数应为nil或PChar(0)。
●Directory:用于指定默认目录。
●ShowCmd:若FileName参数是一个可执行程序,则此参数指定程序窗口的初始显示方式,否则此参数应设置为0。
若ShellExecute函数调用成功,则返回值为被执行程序的实例句柄。若返回值小于32,则表示出现错误。
使用例子:
注册dll
ShellExecute(NULL, L”open”, L”regsvr32.exe”, L”/s-  \”E:l dll/some.dll\”“, L”", SW_HIDE);//如果有空格需要双引号,如果要隐藏弹出窗口需要/s-
取消注册dll
ShellExecute(NULL, L”open”, L”regsvr32.exe”, L”/u some.dll, L”, SW_HIDE);
执行应用程序
ShellExecute(NULL, L”open”, L”d:/some.exe”, L”", L”", SW_SHOW); 


2018年5月23日 | 发布:admin | 分类:程序开发 | 评论:0

VFP下使用系统默认程序打开文件

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,; 

STRING lpszOP, ; 

STRING lpszFile, ; 

STRING lpszParams, ; 

STRING lpszDir, ; 

INTEGER fsshowcmd 

DECLARE INTEGER GetDesktopWindow IN win32api 

2018年4月29日 | 发布:admin | 分类:程序开发 | 评论:0

常用JS代码2



弹窗代码汇总

【0、超完美弹窗代码 】

功能:5小时弹一次+背后弹出+自动适应不同分辩率+准全屏显示 


代码: 

<script> 

function openwin(){ 

window.open(http://www.6882.com,"pop1","width="+(window.screen.width-15)+",height="+(window.screen.height-170)+",left=0,top=0,toolbar=yes,menubar=yes,scrollbars=yes,resizable=yes,location=yes,status=yes") 

2018年3月1日 | 发布:admin | 分类:HTML5 | 评论:0

小程序都报wxss编译错误

小程序都报wxss编译错误

控制台输入openVendor() ,清除里面的

2017年12月4日 | 发布:admin | 分类:HTML5 | 评论:0

WIN2008R2IIS假死

切身体会!


有一个便宜的WIN2008R2 云服务器

三五天,便远程连接不上,网页打不开,还不是我写的应用

是商业代码,哦,当然是免费版

淡是,也不应该是代码的问题!

肯定是服务器的某些问题

但是,不能重装,因为有别的服务在上面,要好多设置

好苦恼


后来发现,可能是IIS的问题

再后来发现,可能是应用连接池的问题,因为使用的人少,这个应用连接池会定期释放连接

2017年10月14日 | 发布:admin | 分类:HTML5 | 评论:0