岔路ko的博客

【代码】VB.NET C# 日志运算。

第一次使用CE写项目，熬了几个大夜终于搞定了。使用CE修改器获取基址，使用C++编译函数获取基址，THREADSTACK0

一、确认加载了MVC二、添加Controllers/HomeController三、添加 App_Start/RouteConfig.vb四、调整 Global.asax以上即可。

1，路径2，从win7拷贝出来 zh-CHS 与 zh-CN 文件即可。

‘’’ ‘’’ 15位时间戳转为时间‘’’ ‘’’ ‘’’ Public Function TimestampToDataTime(ByVal timeStamp As Long) As DateTimeDim dtStart As DateTime = TimeZone.CurrentTimeZone.ToLocalTime(New DateTime(1970, 1, 1))Dim toNow As New TimeSpan(timeStamp * 10000)Return dtStart

'获取目标类 Dim TargerClass As UTF8Encoding = Activator.CreateInstance(GetType(UTF8Encoding)) '获取目标类的函数 Dim OldMethodInfo As MethodInfo = GetType(UTF8Encoding).GetMethod("GetString", {GetType(Byte()), GetType(Int32), GetType(Int3...

一、nuget 安装obfuscar二、拷贝 Obfuscar.Console.exe 到debug目录三、新建配置文件config.xmlCPUClock.dll 是需要根据自己的项目名修改的<?xml version="1.0" encoding="utf-8" ?><Obfuscator> <!--输入路径--> <Var name="InPath" value="..\debug" /> <!--输出路径:加密混淆过的路

一、新建类Imports System.IOImports System.ReflectionPublic Class ClsRunlic Public strLocation As String = Assembly.GetExecutingAssembly().Location ''' <summary> ''' 当前DDL运行路径 ''' </summary> ''' <returns></returns>

一、打开文件 .eslintrc.js二、添加配置文件'jsx-quotes': false三、重启VSCode

问题描述:其他信息: 对 PInvoke 函数“WpjRfidReader!WpjRfidReader.Reader::Net_DisconnectScanner”的调用导致堆栈不对称。原因可能是托管的 PInvoke 签名与非托管的目标签名不匹配。请检查 PInvoke 签名的调用约定和参数与非托管的目标签名是否匹配。解决方法:1.把.NET 环境改为Net3.52.或者增加CallingConvention:=CallingConvention.Cdecl原先的代码 <Dll

Imports System.Collections.ConcurrentImports System.Runtime.CompilerServicesPublic Module ConcurrentDictionaryHelper ''' <summary> ''' 添加数据 ''' </summary> ''' <typeparam name="TKey"></typeparam> ''' <typepa

一、文件引用1，右键项目 -> 添加 -> 现有项–>选择文件–>添加为链接。二、项目引用1，右键项目 -> 添加 -> 引用–>项目–>确定。

VB数据类型Dim csShort As Short = -10 '16 位有符号的整数。 -32768--32767Dim csUShort As UShort = 10 '16 位无符号整数 0--65535Dim csInt32 As Int32 = -10 '32 位有符号的整数 -2147483648--2147483647Dim csUInt32 As UInt32 = 10 '32 位无符号整数 0--4294967295Dim csInt64 As Int6

一、运行环境下面三选一 2和3 的下载地址一样安装开发版的Edge (Chromium)。 https://www.microsoftedgeinsider.com/zh-cn/download/安装独立的WebView2 Runtime，它可以独立下载和升级 https://developer.microsoft.com/zh-cn/microsoft-edge/webview2/嵌入Edge chromium内核二、示范代码最低支持.NET 4.5 +VS2015 可以调试成功。

一、需求 : 需要根据IP地址不同返回不同的数据接口。二、实现：新建一个类模块Public Module HttpRequestMessageExtensions Private Const HttpContext As String = "MS_HttpContext" Private Const RemoteEndpointMessage As String = "System.ServiceModel.Channels.RemoteEndpointMessageProperty"

```java ''' <summary> ''' CRC16低字节在前,高字节在后 ''' </summary> ''' <param name="data"></param> ''' <returns></returns> Public Shared Function CRC16(ByVal data() As Byte) As Byte() Dim len As I.

一、代码void setup() { // initialize digital pin LED_BUILTIN as an output. pinMode(5, OUTPUT); Serial.begin(115200);}// the loop function runs over and over again forevervoid loop() { Serial.print("Connected to "); digitalWrite(5, HIGH); //

一、新建一个Helper类Imports System.NetImports System.Net.SocketsImports System.TextPublic Class WPGUDPHelper Public m_csUDPClient As UdpClient = Nothing Private m_csHisIPEndPoint As New List(Of IPEndPoint） Private m_csCurreIPEndPoint As IPEndPoi.

Byte转StringASCIIEncoding.Default.GetString(receiveBytes)String转ByteSystem.Text.ASCIIEncoding.Default.GetBytes(txt_MSG.Text)

右击项目,选择属性,在属性中选择Settings选项卡，Scope选择User这样就会在项目中添加了App.config配置。

方法一、适合不是本应用程序生成的界面 <DllImport("User32.dll")> Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As Integer End Function Dim csInteger As Integer = FindWindow(Nothing, Me.Text)方法二、适合本界面Dim csI

''' <summary> ''' 获取当前TcpClient 的连接状态 ''' </summary> ''' <param name="csTcpClientTemp">TcpClient</param> ''' <returns></returns> Private Function GetTcpClientConnected(ByVal csTcpClientTemp As TcpC...

问题点VS编译的WebAPI只能使用http://localhost:64734/API/Default/GETIP 无法使用http://127.0.0.1:64734/API/Default/GETIP解决方法1，找到.VS文件夹2，找到文件D:\桌面\WebAPIArduino.vs\config\applicationhost.config路径根据项目而定。D:\桌面\WebAPIArduino搜索localhost 后，把localhost改为*修改后结果亲测

最近遇到一个问题while true 的时候，CPU占用过高。使用Thread.Sleep(10)CPU一直居高不下，请教公司大佬说使用ManualResetEvent实测之后确实可以，之前开启4个程序之后CPU占用100%，现在开了7个仅仅占用了15%不到，今天又进步了。分享一下使用方法。 Private m_csWaitHandle As New ManualResetEvent(False) Private Sub MelsecPlCReade()

<style>/* #app { font-family: Avenir, Helvetica, Arial, sans-serif; -webkit-font-smoothing: antialiased; -moz-osx-font-smoothing: grayscale; text-align: center; color: #2c3e50; margin-top: 60px;} */html,body { height: 100%; width:

Private Function OutputValidFilename(ByVal _fileName As String) As String Dim fileName As New StringBuilder(_fileName) For Each c As Char In System.IO.Path.GetInvalidFileNameChars() fileName = fileName.Replace(c, "_"c) ...

把 TEXTDATABASE 替换成需要修改的数据名称。USE masterGOALTER DATABASE TEXTDATABASE SET SINGLE_USERGOALTER DATABASE TEXTDATABASE SET EMERGENCYGODBCC CHECKDB(TEXTDATABASE,REPAIR_ALLOW_DATA_LOSS)GOALTER DATABASE TEXTDATABASE SET ONLINEGOALTER DATABASE TEXTDATABA

Private m_strSplit As String = （New String(" ", 10)） Dim strTemp（） As String = RegularExpressions.Regex.Split(strSubTree.Text.ToString.Trim, m_strSplit, RegularExpressions.RegexOptions.IgnoreCase)

Function F_10to34(n As Long) As String Dim strResult As String = String.Empty Dim s As String s = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ" Do strResult = Mid(s, (n Mod 34) + 1, 1) & strResult n = ...

Dim strSavePath As String = "路径" Dim csFolderBrowserDialog As New FolderBrowserDialog If Directory.Exists(strSavePath) = True Then csFolderBrowserDialog.SelectedPath = strSavePath End If...

Dim csVideoCaptureDevice As VideoCaptureDevice'声明一个相机 csVideoCaptureDevice = VideoPlayer2.VideoSource'视频播放 csVideoCaptureDevice.DisplayPropertyPage(IntPtr.Zero)'这是焦点

ALTER TABLE T_SMSJ ADD F_CJBLCOUNT DECIMAL(18, 2) NOT NULL DEFAULT ((0))

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim csclsNPOI As New clsNPOI（Application.StartupPath & "\Demo.xls"） Dim csMemoryStream As MemoryStream = csclsNPOI.GetStream() Dim workbook...

获取SQL Server指定表中的字段类型和长度SELECT T_JB.name AS F_NAME, T_JB2.DATA_TYPE AS F_DATA_TYPE, T_JB.prec AS F_ZS, T_JB.scale AS F_XS, T_JB2.F_ENGLISH, T_JB2.F_CHINESEFROM( SELECT name, prec, ISNULL(scale

只需要把数字转为Double 则会自动去掉0 Dim d As Decimal = 12.0 Debug.Print(CDbl(d))

Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(PictureBox1.Image, ImageFormat.Jpeg)img.SetAbsolutePosition(0, 0)'设置图片的位置在0.0img.ScaleAbsolute(PageSize.A4)'设置图片大小为A4纸大小csPdfWriter.DirectContent.AddImage(img)'把图片加载到A4纸上...

一、初始版本Public Class Frm_CSBB '线程间操作无效:控件 Private m_csWPGUDP As WPGUDP Public Sub New() ' 此调用是设计器所必需的。 InitializeComponent() ' 在 InitializeComponent() 调用之后添加任何初始化...