% 此函数将元胞数组（N 行 x 1 列）中的内容写入% ANSI 文本文件。 每个单元格（行）包含一行的文本。 % ** 此版本不支持 Unicode16。

今天做项目的时候，想在easyui的datagrid每一列数据后边都加上一个操作按钮，怎么实现此功能呢？下面小编给大家带来了EasyUI的DataGrid每行数据添加操作按钮的实现代码，需要的朋友参考下吧

' VBScript source code OPTION EXPLICIT DIM ICSSC_DEFAULT, CONNECTION_PUBLIC, CONNECTION_PRIVATE, CONNECTION_ALL DIM NetSharingManager DIM PublicConnection, PrivateConnection DIM EveryConnectionCollection DIM objArgs DIM priv_con, publ_con dim switch ICSSC_DEFAULT = 0 CONNECTION_PUBLIC = 0 CONNECTION_PRIVATE = 1 CONNECTION_ALL = 2 Main() sub Main( ) Set objArgs = WScript.Arguments if objArgs.Count = 3 then priv_con = objArgs(0)'内网连接名 publ_con = objArgs(1)'外网连接名 switch = objArgs(2)'状态切换开关 on 为 打开ics off 相反 if Initialize() = TRUE then GetConnectionObjects() FirewallTestByName priv_con,publ_con end if else DIM szMsg if Initialize() = TRUE then GetConnectionObjects() FirewallTestByName "list","list" end if szMsg = "To share your internet connection, please provide the name of the private and public connections as the argument." & vbCRLF & vbCRLF & _ "Usage:" & vbCRLF & _ " " & WScript.scriptname & " " & chr(34) & "Private Connection Name" & chr(34) & " " & chr(34) & "Public Connection Name" & chr(34) WScript.Echo( szMsg & vbCRLF & vbCRLF) end if end sub sub FirewallTestByName(con1,con2) DIM Item DIM EveryConnection DIM objNCProps DIM szMsg DIM bFound1,bFound2 WScript.echo(vbCRLF & vbCRLF) bFound1 = false bFound2 = false for each Item in EveryConnectionCollection set EveryConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item) set objNCProps = NetSharingManager.NetConnectionProps(Item) szMsg = "Name: " & objNCProps.Name & vbCRLF & _ "Guid: " & objNCProps.Guid & vbCRLF & _ "DeviceName: " & objNCProps.DeviceName & vbCRLF & _ "Status: " & objNCProps.Status & vbCRLF & _ "MediaType: " & objNCProps.MediaType if EveryConnection.SharingEnabled then szMsg = szMsg & vbCRLF & _ "SharingEnabled" & vbCRLF & _ "SharingType: " & ConvertConnectionTypeToString(EveryConnection.SharingConnectionType) end if if objNCProps.Name = con1 then bFound1 = true if EveryConnection.SharingEnabled = False and switch="on" then szMsg = szMsg & vbCRLF & "Not Shared... Enabling private connection share..." WScript.Echo(szMsg) EveryConnection.EnableSharing CONNECTION_PRIVATE szMsg = " Shared!" else szMsg = szMsg & vbCRLF & "Shared... DisEnabling private connection share..." WScript.Echo(szMsg) EveryConnection.EnableSharing CONNECTION_ALL end if end if if objNCProps.Name = con2 then bFound2 = true if EveryConnection.SharingEnabled = False and switch="on" then szMsg = szMsg & vbCRLF & "Not Shared... Enabling public connection share..." WScript.Echo(szMsg) EveryConnection.EnableSharing CONNECTION_PUBLIC szMsg = " Shared!" else szMsg = szMsg & vbCRLF & "Shared... DisEnabling public connection share..." WScript.Echo(szMsg) EveryConnection.EnableSharing CONNECTION_ALL end if end if WScript.Echo(szMsg & vbCRLF & vbCRLF) if( con1 <> "list" ) then if( bFound1 = false ) then WScript.Echo( "Connection " & chr(34) & con1 & chr(34) & " was not found" ) end if if( bFound2 = false ) then WScript.Echo( "Connection " & chr(34) & con2 & chr(34) & " was not found" ) end if end if End Sub function Initialize() DIM bReturn bReturn = FALSE set NetSharingManager = Wscript.CreateObject("HNetCfg.HNetShare.1") if (IsObject(NetSharingManager)) = FALSE then Wscript.Echo("Unable to get the HNetCfg.HnetShare.1 object") else if (IsNull(NetSharingManager.SharingInstalled) = TRUE) then Wscript.Echo("Sharing isn't available on this platform.") else bReturn = TRUE end if end if Initialize = bReturn end function function GetConnectionObjects() DIM bReturn DIM Item bReturn = TRUE if GetConnection(CONNECTION_PUBLIC) = FALSE then bReturn = FALSE end if if GetConnection(CONNECTION_PRIVATE) = FALSE then bReturn = FALSE end if if GetConnection(CONNECTION_ALL) = FALSE then bReturn = FALSE end if GetConnectionObjects = bReturn end function function GetConnection(CONNECTION_TYPE) DIM bReturn DIM Connection DIM Item bReturn = TRUE if (CONNECTION_PUBLIC = CONNECTION_TYPE) then set Connection = NetSharingManager.EnumPublicConnections(ICSSC_DEFAULT) if (Connection.Count > 0) and (Connection.Count < 2) then for each Item in Connection set PublicConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item) else bReturn = FALSE end if elseif (CONNECTION_PRIVATE = CONNECTION_TYPE) then set Connection = NetSharingManager.EnumPrivateConnections(ICSSC_DEFAULT) if (Connection.Count > 0) and (Connection.Count < 2) then for each Item in Connection set PrivateConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item) else bReturn = FALSE end if elseif (CONNECTION_ALL = CONNECTION_TYPE) then set Connection = NetSharingManager.EnumEveryConnection if (Connection.Count > 0) then set EveryConnectionCollection = Connection else bReturn = FALSE end if else bReturn = FALSE end if if (TRUE = bReturn) then if (Connection.Count = 0) then Wscript.Echo("No " + CStr(ConvertConnectionTypeToString(CONNECTION_TYPE)) + " connections exist (Connection.Count gave us 0)") bReturn = FALSE 'valid to have more than 1 connection returned from EnumEveryConnection elseif (Connection.Count > 1) and (CONNECTION_ALL <> CONNECTION_TYPE) then Wscript.Echo("ERROR: There was more than one " + ConvertConnectionTypeToString(CONNECTION_TYPE) + " connection (" + CStr(Connection.Count) + ")") bReturn = FALSE end if end if Wscript.Echo(CStr(Connection.Count) + " objects for connection type " + ConvertConnectionTypeToString(CONNECTION_TYPE)) GetConnection = bReturn end function function ConvertConnectionTypeToString(ConnectionID) DIM ConnectionString if (ConnectionID = CONNECTION_PUBLIC) then ConnectionString = "public" elseif (ConnectionID = CONNECTION_PRIVATE) then ConnectionString = "private" elseif (ConnectionID = CONNECTION_ALL) then ConnectionString = "all" else ConnectionString = "Unknown: " + CStr(ConnectionID) end if ConvertConnectionTypeToString = ConnectionString end function

该资源是程序员专门为自己的心仪的人表白而写的一款心心相印的程序。

深信服SASE服务：上网行

前言 对于会PhotoShop的人来说，抠图是非常简单的操作了，有时候几秒钟就能扣好一张图。不过一些比较复杂的图，有时候还是要画点时间的，今天就给大家带了一个非常快速简单的办法，用Python来批量抠取人像。 效果展示 开始吧，我也不看好什么自动抠图，总觉得不够精确，抠不出满意的图。下面我就直接展示一下效果图吧。我们先看看原图 这张图片背景未纯色，我们平时用PhotoShop抠起来也比较简单，对我们计算机来说也不是什么难题，下面是效果图： 因为本身是PNG图片，而且原图是白色背景，所以看不出什么区别。为了显示效果，我把原图和抠好的图放到一张黄色背景图片上： 这样一看效果明显多了，感觉抠图

vb6.0 一行代码生成二维码，只需要把字符串赋值给属性就好，最简单，最方便，适合需要二维码的所有项目

sourceinsight 4.0 护眼配色方案， 多行注释快捷键配置，使用更方便，个人亲测有效，欢迎下载使用

云及大数据服务行业研究：IDC行研框架调整与“东数西算”空间测算.pdf