小编Ele*_*ios的帖子

有一种方法可以使MessageBox居中而不进行子类化或挂钩？

我正在寻找VB.NET代码.

我有一个DLL和OCX包然后我决定制作一个安装程序.

这就是我所拥有的:

ArchitecturesInstallIn64BitMode=x64

[Files]
Source: {syswow64}\*; DestDir: {syswow64}; Flags: onlyifdoesntexist
Source: {sys}\*; DestDir: {sys}; Flags: onlyifdoesntexist


[Run]

Filename: regsvr32.exe; Parameters: """{sys}\zlib1.dll"" /S"; StatusMsg: Registrando: zlib1.dll; Flags: RunHidden WaitUntilTerminated

Filename: regsvr32.exe; Parameters: """{syswow64}\actskin4.ocx"" /S"; StatusMsg: Registrando: actskin4.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Bassmod.dll"" /S"; StatusMsg: Registrando: Bassmod.dll; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\ChamaleonButton.ocx"" /S"; StatusMsg: Registrando: ChamaleonButton.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.Calendar.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.Calendar.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.Codejock.TaskPanel.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.Codejock.TaskPanel.v13.4.0.Demo.ocx; …

有网站可以在线编译VB.NET代码吗？

今天我发现了它支持在线构建C#项目的CodeRun站点:www.coderun.com/ide/

我有兴趣向人们展示一些片段,但那些人没有IDE来运行代码,否则也许那些人不知道什么是IDE/.NET/VS /编程,所以给出一个站点的URL让他们自己构建代码对我来说是更好和"快速",而不是自己编译它们以后将它们上传到服务器以便稍后在他们的计算机中下载以测试每个代码片段作为编译的可执行文件...

是否有像CodeRun这样的网站,但支持VB.NET？

有一种使用GeckoFX库提交Web表单的正确方法吗？

这就是我正在填写网页表格并提交表格,但是......好吧,我没有提交,我只是点击页面的最后一个按钮,我认为这不是正确地做到这一点......

Framework的WebBrowser控件有一个提交Web表单的方法,但我找不到任何类似的方法来正确提交Web表单GeckWebBrowser.

Dim doc = GeckoWebBrowser1.Document

doc.GetElementById("id_username").
    SetAttribute("value", CStr(MyUsername))

doc.GetElementById("id_password").
    SetAttribute("value", CStr(MyPassword))

doc.GetElementsByTagName("input").
    Last.Click()

我有一台装有Windows 8的机器,我安装了没有帮助查看器的VS2013,以及一台具有相同操作系统和相同VS但安装了Help Viewer软件包的VirtualMachine().Help Viewer v2.1

我创建了具有独特用途的VM,我希望能够在我的主机操作系统中使用Microsoft Help Viewer(或其他替代软件,如果存在),而无需在我的操作系统中安装VS2013.

...所以在逆向工程的一个非常基本的意图是能够在我的主机操作系统中使用Microsoft帮助查看器我刚刚将这些文件夹从VM复制到我的PC:

C:\Program Files (x86)\Microsoft Help Viewer

和

C:\ProgramData\Microsoft\HelpLibrary2

并添加了这些键:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Help]

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Help\v2.1]
"AppRoot"="C:\\Program Files (x86)\\Microsoft Help Viewer\\v2.1\\"
"DefaultHelpViewerCLSID"="{FE220E43-FE17-47BE-A57E-84D2B9A5635D}"

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Help\v2.1\Catalogs]
"ContentStore"="C:\\ProgramData\\Microsoft\\HelpLibrary2\\Catalogs\\"

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Help\v2.1\Catalogs\VisualStudio12]
"LocationPath"="%ProgramData%\\Microsoft\\HelpLibrary2\\Catalogs\\VisualStudio12\\"
"LastUpdated"="02/26/2014 06:34:55"

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Help\v2.1\Catalogs\VisualStudio12\en-US]
"SeedFilePath"="C:\\Program Files (x86)\\Microsoft Help Viewer\\v2.1\\CatalogInfo\\VS11_en-us.cab"
"catalogName"="Visual Studio Documentation"

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Help\v2.1\Setup] …

在System.ServiceProcess命名空间中,是否有任何类型的枚举或其他直接成员来确定服务的启动类型(自动,延迟自动,按需,禁用)ServiceController？

我的想法是使用.NET框架类库的该命名空间(或其他命名空间)的可用成员来确定该事物,而不是查看操作系统注册表或WMI以获取服务的启动类型,因为我可以这样做,我我只是问.NET框架是否公开了一种更简单的方法来确定那件事.

用VB.Net编写的伪代码,但我也可以管理C#方法:

Public Shared Function GetStartType(ByVal svcName As String) As ServiceControllerStatus

    Dim svc As ServiceController = (From service As ServiceController In ServiceController.GetServices()
         Where service.ServiceName.Equals(svcName, StringComparison.OrdinalIgnoreCase)
        ).FirstOrDefault

    If svc Is Nothing Then
        Throw New ArgumentException("Any service found with the specified name.", "svcName")
    Else
        Using svc
            ' Note that StartTypeEnumValue does not exists.
            Return svc.StartTypeEnumValue
        End Using
    End If

End Function

首先,我不确定这是否重要,但由于@ Simon Mourier在他回答中提到的原因,我正在使用ADAL的EXPERIMENTAL版本,这个.

在下面的代码中,我想检索一个AuthenticationResultsynchronouslly,因此,我将等待通过AcquireTokenAsync方法以同步方式完成身份验证的完整性.

这是因为在授权完成后应该设置一个布尔标志(isAuthorized = true),但是tg需要以同步方式发生,因为如果没有,那么我可以调用该类的其他方法,因为调用了AcquireTokenAsync没有完成所以对象为null.

以下代码不起作用,该方法永远不会返回,因为对AcquireTokenAsync方法的调用似乎无限期地冻结了该线程.

C#(由于在线翻译,可能是错误的语法):

public void Authorize() {
    // Use the 'Microsoft.Experimental.IdentityModel.Clients.ActiveDirectory' Nuget package for auth.
    this.authContext = new AuthenticationContext(this.authUrl, this.cache);
    this.authResult = this.authContext.AcquireTokenAsync({ "https://outlook.office.com/mail.readwrite" }, 
                                                         null, this.clientIdB, this.redirectUriB, 
                                                         new PlatformParameters(PromptBehavior.Auto, this.windowHandleB)).Result;

    // Use the 'Microsoft.Office365.OutlookServices-V2.0' Nuget package from now on.
    this.client = new OutlookServicesClient(new Uri("https://outlook.office.com/api/v2.0"), () => Task.FromResult(this.authResult.Token));
    this.isAuthorizedB = true;
}

VB.NET:

Public Sub Authorize()

    ' Use the …

脚本

我有一个解决方案,我有(超过)2个项目.

第一个项目有一个项目引用第二个项目.第二个项目没有第一个项目的参考.

好吧,在第一个项目中,我定义了一个可继承的类类型,我希望第二个项目中的某些类继承它.

问题

显然,如果我想继承第一个项目中定义的类型,在第二个项目中我需要向第一个项目添加项目引用,以便能够看到类型并继续.

问题是,当我尝试添加项目引用时,我收到此错误消息:

题

有人可以用其他简单的单词解释我(也许在代码的例子中也隐含在错误中)什么是循环依赖？,最重要的是:我能做些什么来解决它？(请在回答之前阅读我研究的最后一部分).

研究

这是我第一次听到" 循环依赖 "一词; 我从MSDN上读过这篇文章,但我什么都不懂.

无论如何,我看到很多像这样的循环依赖的问题,从我在那个问题中看到的看来,循环依赖意味着两个项目不能同时引用它们,这两个项目中只有一个可以引用另一个; 并且在那个问题中回答的所有人都说" 重新设计是解决方案 "或" 循环依赖不是好的做法 ",但是,在我的案例中重新设计将意味着在两个项目中定义相同的类型,我认为这也不是好的做法,当然,建立一个额外的程序集/项目只是为了存储一个类型来引用两个项目中的程序集......这是我认为最糟糕的想法.

我正在使用 Visual Studio 2022 v17.6.0 预览版 4.0，我想摆脱文本编辑器顶部的这个可怕的窗格。

我认为它没有帮助，它只会分散我的注意力，因为它在滚动文本编辑器时不断改变其高度（添加/删除行），因此它不断改变文本搜索弹出窗口的位置。它仅用于减少文本编辑器的可见空间......

我将其称为“代码层次结构跟踪顶部窗格”，因为我不知道此功能的正式名称。

我在设置和可在 Visual Studio 设置中禁用的预览功能中找不到此功能。

为了开始执行这个"简单"的任务,我已经研究了一个程序,我在这里作为一个例子来跟踪并重现这些步骤,程序可以"匿名"上传一个图像:

Private ReadOnly ClientId As String = "My Client ID" ' => "..............."
Private ReadOnly ClientSecret As String = "My Client Secret" ' => "........................................"

' Usage:
' Dim url As String = UploadImage("C:\Image.jpg") : MessageBox.Show(url)
Public Function UploadImage(ByVal image As String)

    Dim w As New WebClient()
    w.Headers.Add("Authorization", "Client-ID " & ClientId)
    Dim Keys As New System.Collections.Specialized.NameValueCollection

    Try

        Keys.Add("image", Convert.ToBase64String(File.ReadAllBytes(image)))
        Dim responseArray As Byte() = w.UploadValues("https://api.imgur.com/3/image", Keys)
        Dim result = Encoding.ASCII.GetString(responseArray)
        Dim reg As New System.Text.RegularExpressions.Regex("link"":""(.*?)""")
        Dim match …