求大佬帮忙把vb语言翻译成易语言

无敌哥 · 发表于 2022-9-7 00:22:57

网上找到的一段vb代码，来个大佬帮忙翻译成易语言呀，谢谢！
With re .dwSize = LenB(re) .dwCountryCode = 86 .dwCountryID = 86 .dwDialExtraPercent = 75 .dwDialExtraSampleSeconds = 120 .dwDialMode = 1 .dwfNetProtocols = 4 .dwfOptions = 1024262928 .dwfOptions2 = 16 ' 查阅资料得出L2TP这里应该设置为16 具体原理不得而知 .dwFramingProtocol = 1 .dwHangUpExtraPercent = 10 .dwHangUpExtraSampleSeconds = 120 .dwRedialCount = 3 .dwRedialPause = 60 .dwType = RASET_v*n CopyMemory .szDeviceName(0), ByVal sDeviceName, Len(sDeviceName) CopyMemory .szDeviceType(0), ByVal sDeviceType, Len(sDeviceType) CopyMemory .szLocalPhoneNumber(0), ByVal sServer, Len(sServer) '服务器地址 .dwv*nStrategy = 3 'v*n类型首先这里设置为3 也就是默认L2TP方式连接 .dwEncryptionType = 3 '数据加密类型设置为3 也就是密钥加密 End With Dim rc As RASCREDENTIALS With rc Mid(.szPassword, 1, Len("xxxxxx")) = "xxxxxx" 'xxxxxx为预共享密钥, 而在PPTP方式里本应设置密码处直接设置成L2TP的密钥 .dwSize = 540 .dwMask = 16 'L2TP此处设置值为16 End With

bbox · 发表于 2022-9-7 00:22:58

每段代码去百du搜什么意思,然后根据翻译自己写易语言代码自己丰衣足食啊

无敌哥 · 发表于 2022-9-7 00:23:16

With re
  .dwSize = LenB(re)
  .dwCountryCode = 86
  .dwCountryID = 86
  .dwDialExtraPercent = 75
  .dwDialExtraSampleSeconds = 120
  .dwDialMode = 1
  .dwfNetProtocols = 4
  .dwfOptions = 1024262928
  .dwfOptions2 = 16 ' 查阅资料得出L2TP这里应该设置为16 具体原理不得而知
  .dwFramingProtocol = 1
  .dwHangUpExtraPercent = 10
  .dwHangUpExtraSampleSeconds = 120
  .dwRedialCount = 3
  .dwRedialPause = 60
  .dwType = RASET_v*n
  CopyMemory .szDeviceName(0), ByVal sDeviceName, Len(sDeviceName)
  CopyMemory .szDeviceType(0), ByVal sDeviceType, Len(sDeviceType)
  CopyMemory .szLocalPhoneNumber(0), ByVal sServer, Len(sServer) '服务器地址
  .dwv*nStrategy = 3 'v*n类型首先这里设置为3 也就是默认L2TP方式连接
  .dwEncryptionType = 3 '数据加密类型设置为3 也就是密钥加密
  End With
  Dim rc As RASCREDENTIALS
  With rc
   Mid(.szPassword, 1, Len("xxxxxx")) = "xxxxxx" 'xxxxxx为预共享密钥, 而在PPTP方式里本应设置密码处直接设置成L2TP的密钥
.dwSize = 540
.dwMask = 16 'L2TP此处设置值为16
  End With

无敌哥 · 发表于 2022-9-7 00:23:58

格式有点乱，放在二楼了

		自动登录	找回密码
密码			注册

[已解决] 求大佬帮忙把vb语言翻译成易语言

最佳答案