פורום מחשבים

פורום לענייני מחשבים, תוכנות, אינטרנט, סינונים, שרתים, חומרה, רשתות, תקשורת ועוד.
מנהל הפורום: יעקב ויצמן

מחשבים ותוכנות > תוכן מקצועי

שלום וברכה.
יש לי פונקציה לשלוח API (סליקת אשראי בקשר) דרך VBA באקסס.
אבל כל מה שאני כותב בעברית הוא מציג בתור סימני שאלה.
בתוכנה אחרת (לא אקסס) זה עובד, מה שאומר שהבעיה היא אצלי בקוד.
יש למישהו רעיון איך לפתור את העניין?
תודה

הקוד שלי הוא:
קוד:
Public Function transaction()
Dim oHttp As Object
Dim TextBody As String

Set oHttp = CreateObject("MSXML2.XMLHTTP")

TextBody = "https://kesherhk.info/ConnectToKesher/ConnectToKesher?Json={""userName"":""1234567890"",""password"":""abcdef1234"",""func"":""SendTransaction"",""format"":""json"","""
TextBody = TextBody & "tran"":{""Address"":""שם רחוב"",""ApiKey"":""ABC123"",""City"":""עיר"",""CreditNum"":""4580000000001234"",""Token"":null,"""
TextBody = TextBody & "Expiry"":""2101"",""Cvv2"":""123"",""Total"":100,""Currency"":1,""CreditType"":1,""Phone"":""0521234567"",""ParamJ"":""J4"",""TransactionType"":""debit"",""Comment1"":""הערה 1"","""
TextBody = TextBody & "FirstName"":""שם פרטי"",""LastName"":""שם משפחה"",""ProjectNumber"":""1"",""Mail"":""<לא ניתן לפרסם מיילים באופן פומבי>""}}&format=json"

oHttp.Open "GET", TextBody, False

oHttp.send TextBody
Debug.Print oHttp.responseText
End Function

יש לציין שהקוד עובד, זאת אומרת האשראי נגבה כמו שצריך, רק הנתונים הופכים לסימני שאלה.
שוב תודה!
שלום וברכה.
יש לי קוד שפועל בPowerShell להציג הודעה מוקפצת על המסך.
ואני רוצה להפעיל אותו מתוך אקסס.
איך אני עושה זאת?
תודה רבה

הקוד שלי הוא כך:
קוד:
#Load the required assemblies
[void] [System.Reflection.Assembly]::LoadWithPartialName(“System.Windows.Forms”)#Remove any registered events related to notifications
##Remove-Event BalloonClicked_event -ea SilentlyContinue
##Unregister-Event -SourceIdentifier BalloonClicked_event -ea silentlycontinue
##Remove-Event BalloonClosed_event -ea SilentlyContinue
##Unregister-Event -SourceIdentifier BalloonClosed_event -ea silentlycontinue#Create the notification object
$notification = New-Object System.Windows.Forms.NotifyIcon

$path = (Get-Process -id $pid).Path
$notification.Icon  = [System.Drawing.Icon]::ExtractAssociatedIcon($path)
$notification.BalloonTipTitle = “כותרת”
$notification.BalloonTipIcon = “Info”
$notification.BalloonTipText = “טקסט”
$notification.Visible = $True

## Register a click event with action to take based on event
#Balloon message clicked
register-objectevent $notification BalloonTipClicked BalloonClicked_event `
-Action {[System.Windows.Forms.MessageBox]::Show(“Balloon message Clicked”,”Information”);$notification.Visible = $False} | Out-Null

#Balloon message closed
register-objectevent $notification BalloonTipClosed BalloonClosed_event `
-Action {[System.Windows.Forms.MessageBox]::Show(“Balloon message closed”,”Information”);$notification.Visible = $False} | Out-Null

#Call the balloon notification
$notification.ShowBalloonTip(600)
 תגובה אחרונה 

אולי מעניין אותך גם...

הצטרפות לניוזלטר

איזה כיף שהצטרפתם לניוזלטר שלנו!

מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!

לוח מודעות

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק כה

אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
נקרא  2  פעמים
למעלה