kokew2000 بتاريخ: 5 يناير 2018 تقديم بلاغ مشاركة بتاريخ: 5 يناير 2018 السلام عليكم عندي كود مكتوب بلغة فيجوال دوت نت وبريد تغييرة الي اوراكل فهل ممكن المساعدة الكود كالتالي Dim feature As HaspFeature = HaspFeature.Default Dim vendorCode As String = _ "mCh8Vz14BV9gVFgk6lKWJGutdZ2FKb4ynD+YQJGes7pma6qSRPN7hSLmbS1t2gxNdkWEUEjGYyuVZvUv" + _ "F8+PhuksWMZohv51cTqLjWEXchrH0l0yMyLvVuP336a/LYR5FfftB8af4rosN81Wy33Mfx1ofU7lDE9/" + _ "71VBBxDm2OoyxRkn1VwcXiWEbIYZTvFlSNo2rGSwUltIq1YiXNkI5BZvR6z2vlte5Df6Pr6sWEZKwlUs" + _ "zQbTub4whN8l+K88U+iohW3TUnzQ96M2N0M+7JNc9CesU2JI7rMvUZ7chvqcFYmuIXEz/KUzquQWkYSA" + _ "GjBOYGaCVx42OfXLlXmYzcahEMJ47wZqa12hFUFoRhLWAt6Re0SI8ZR3OcgRKLNUT+pakSlJ8ZrHib8l" + _ "zItcwE3w8DgJlEZK2Dm3BVaW0P4xRUKWSPnHL+Tt7XplRMkDq+UzeG2F1HVEa1YE4wjOyCHTB/QUKh9m" + _ "xpiukNAQA7CLdccfdfO20WC9QEKmqlcSIwUhOqS5AnAR8cJbkLHCxw84pD8fpdhXkp8d5+mp8a0sq6jb" + _ "Pn14PAXAOc1Dy049CoafHExCfoskXoIbLltw4NM2HH+nmUzgljcyXMRucJLfp7ubv5oNNdM0WxXDsT9V" + _ "8Uemq/e6Hbn2ap5h9PXU5VL5Yv4NvwAVGkTnJ6nyJI64C6Ga+FBw2VcaIZChRhjGyv5JohqtVQkBPx6y" + _ "p3HLZ98rwSrIkaoJitZCXMkYC/g7kjPe+xy3+IM1xLQLFvm7mfaUdydA7goquOnrgWcO4m+DAAAJpOdv" + _ "TAUr1AQsqdm3RL7owCTH11eLxhiTvp7eu2pa3IbIAyXaoAKz2gPKbIESxV5LI4u15NyMtlB1a8mgYwf9" + _ "UcAciAq2UtDgYNXIfaN66cY/mEs7DumhhEoyf0BFXKyXsuyKsAorTjPZuIw=" Dim hasp As Hasp = new Hasp(feature) Dim status As HaspStatus = hasp.Login(vendorCode) If (HaspStatus.StatusOk <> status) Then 'handle error End If 1 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
kokew2000 بتاريخ: 5 يناير 2018 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 5 يناير 2018 Dim feature As HaspFeature = HaspFeature.Default Dim vendorCode As String = _ "mCh8Vz14BV9gVFgk6lKWJGutdZ2FKb4ynD+YQJGes7pma6qSRPN7hSLmbS1t2gxNdkWEUEjGYyuVZvUv" + _ "F8+PhuksWMZohv51cTqLjWEXchrH0l0yMyLvVuP336a/LYR5FfftB8af4rosN81Wy33Mfx1ofU7lDE9/" + _ "71VBBxDm2OoyxRkn1VwcXiWEbIYZTvFlSNo2rGSwUltIq1YiXNkI5BZvR6z2vlte5Df6Pr6sWEZKwlUs" + _ "zQbTub4whN8l+K88U+iohW3TUnzQ96M2N0M+7JNc9CesU2JI7rMvUZ7chvqcFYmuIXEz/KUzquQWkYSA" + _ "GjBOYGaCVx42OfXLlXmYzcahEMJ47wZqa12hFUFoRhLWAt6Re0SI8ZR3OcgRKLNUT+pakSlJ8ZrHib8l" + _ "zItcwE3w8DgJlEZK2Dm3BVaW0P4xRUKWSPnHL+Tt7XplRMkDq+UzeG2F1HVEa1YE4wjOyCHTB/QUKh9m" + _ "xpiukNAQA7CLdccfdfO20WC9QEKmqlcSIwUhOqS5AnAR8cJbkLHCxw84pD8fpdhXkp8d5+mp8a0sq6jb" + _ "Pn14PAXAOc1Dy049CoafHExCfoskXoIbLltw4NM2HH+nmUzgljcyXMRucJLfp7ubv5oNNdM0WxXDsT9V" + _ "8Uemq/e6Hbn2ap5h9PXU5VL5Yv4NvwAVGkTnJ6nyJI64C6Ga+FBw2VcaIZChRhjGyv5JohqtVQkBPx6y" + _ "p3HLZ98rwSrIkaoJitZCXMkYC/g7kjPe+xy3+IM1xLQLFvm7mfaUdydA7goquOnrgWcO4m+DAAAJpOdv" + _ "TAUr1AQsqdm3RL7owCTH11eLxhiTvp7eu2pa3IbIAyXaoAKz2gPKbIESxV5LI4u15NyMtlB1a8mgYwf9" + _ "UcAciAq2UtDgYNXIfaN66cY/mEs7DumhhEoyf0BFXKyXsuyKsAorTjPZuIw=" Dim hasp As Hasp = new Hasp(feature) Dim status As HaspStatus = hasp.Login(vendorCode) If (HaspStatus.StatusOk <> status) Then 'handle error End If اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.