正文
vb.net控制iis类 vbnet invoke
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
,想用一个VB.NET+SQL server+iis开发一个小型网站,前台和数据都好搞,请问后台管理系统怎么开发呢?
数据库详细设计程序详细功能即实现2.后台数据库使用SQL SERVER 实现。 3.数据表要求三个以上并且之间有外键这么完整的东西,没RMB谁理 ..
ASP.NET(VB)在IIS服务中不能运行
你把这三个文件aspx,.aspx.vb,.aspx.resx放在一个test文件夹(自己新建)里,然后拷贝到C:\Inetpub\wwwroot目录下,然后在IIS中设置为应用程序!以及相关权限!
怎么搭建一个vb.net环境
.NET 的环境只有一个,就是.NET Framework
如果你是XP系统的话一般要安装4.0版本
下载的软件当然是visual studio;你可以使用visual studio2015,但是要注意开发时要选择对应的目标框架
只要在这里能看到.NET Franmework4.0就表示你安装好了
在vb.net中怎么调用自定义类?
代码已测试。
一、测试需要的INI文件。名称为“setinfo.ini”,存放路径为你解决方案里“Bin“文件夹的”Debug“文件夹里。
内容:
[Location]
pnlTime.Location.X=787
pnlTime.Location.Y=0
[TopMost]
Top=True
二、操作INI文件的类。新建一个类,类中内容为:
Public Class Class1
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Int32, _
ByVal lpFileName As String _
) As Int32
End Class
三、界面代码:
Imports System.IO 'for path
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
getINI()
End Sub
Private Sub getINI()
Dim iniclass As New Class1 '
Dim myBf As String 'get set_info 开辟存储的内存
myBf = New String(CChar(""), 256)
Dim myFN As String '配置文件的文件路径
myFN = Path.Combine(My.Application.Info.DirectoryPath, "setinfo.ini")
Dim myAN As String 'Application_NAME,也是Section名称
myAN = Me.TextBox1.Text
Dim myKN As String 'KEY_NAME,关键字名称
myKN = Me.TextBox2.Text
Class1.GetPrivateProfileString(myAN, myKN, "", myBf, myBf.Length, myFN) '调用读取INI文件的操作
TextBox3.Text = Microsoft.VisualBasic.Left(myBf, InStr(myBf, Chr(0)) - 1) '截取有用部分,有必要
End Sub
End Class
四、测试截图如下
用VC控制iis的属性
Author:zfive (zidong) Email : 需求 用VC修改IIS的属性 如设为可以匿名访问将默认网站下的主目录路径C:\Inetpub\root 在VC程序里面可以更改成任意路径. 实现 看到masterz在纯vc编写控制IIS属性代码的文章(url ) 总感觉有些麻烦 可能是用vb两年来的缘故吧 想了一个懒人的方法 编写vbscript脚本 vc调用scriptcontrol控件在解析脚本了 还记得两年前用msscriptcontrol 解决过一个网络问题! 代码如下: void CTestDlgDlg::OnBnClickedOk() { // TODO: 在此添加控件通知处理程序代码 //OnOK(); char szBUF[ ]= Function ChangeWebPath(puter webname path ) \r\n On Error Resume Next \r\n Dim vRoot websvc site \r\n ChangeWebPath= \r\n Set websvc = GetObject(\ IIS://\ puter\ /W svc\ ) \r\n if (Err ) Then exit function \r\n for each site in websvc \r\n if site class = \ IIsWebServer\ then \r\n if site ServerComment = webname Then \r\n Set vRoot = site GetObject(\ IIsWebVirtualDir\ \ Root\ ) \r\n vRoot Path = path \r\n vRoot SetInfo \r\n ChangeWebPath= \r\n exit function \r\n end If \r\n end if \r\n next \r\n End function \r\n ; CString szScript = ; szScript Format( %s szBUF); CString szScript = z =ChangeWebPath(\ \ \ 默认网站\ \ c:\\\ ) ; szScript +=szScript ; m_iis put_Language( VBScript ); m_iis AddCode(szScript ); VARIANT result= m_iis Eval( z ); if(result iVal== ) { AfxMessageBox( Success ); } else { AfxMessageBox( Fail ); } return; } 脚本参照C:\Inetpub\AdminScripts\* vbs编写 总体要比纯vc编写简单的多 而且几乎同样的代码 完全可以编写出控制iis其他属性的程序!只需编写脚本! lishixinzhi/Article/program/net/201311/12436
IIS+VB.net
学VB.NET不一定要安装IIS!
但如果你是打算用VB.NET做网站的后台,安装IIS可以方便调试!
另外IIS对普通用户安全问题并不大!
vb.net控制iis类的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbnet invoke、vb.net控制iis类的信息别忘了在本站进行查找喔。